Excel

List Environ info

Ease of Use

Easy

Version tested with

2000, 2002, 2003 

Submitted by:

Justinlabenne

Description:

Returns all the Strings associated with an operating systems environment variables 

Discussion:

This code is useful if you need to obtain info about your users operating system. The code loops through all the Environment variables available, and returns the name of the variable, and the string value associated with it. The Environ function is used to obtain things like the Windows Username, Userprofile, System root, etc... after running the code you will see the resulting list in the vbe's Immediate Window. 

Code:

instructions for use

			

Option Explicit Sub GetEnvironVariables() ' --------------------------------------------------------- ' List all the available Environ information ' Environ Function returns info about the operating system ' Info will be listed in the Immediate Window (Ctrl+G) ' --------------------------------------------------------- If Application.VBE.MainWindow.Visible = False Then ' --------------------------------------------------------- ' To ensure you see the result, I used SendKeys to open ' the vbe, and then display the Immediate Window SendKeys "%{F11}", True SendKeys "^g", True Goto RunProc ' --------------------------------------------------------- Else RunProc: Dim i As Integer i = 1 While Environ(i) <> Empty Debug.Print Environ(i) i = i + 1 Wend End If End Sub

How to use:

  1. Open an Excel Workbook
  2. Copy the code
  3. Press Alt + F11 to open the Visual Basic Editor (VBE)
  4. Select INSERT > MODULE from the menubar
  5. Paste code into the right pane
  6. Press Alt+Q to return to Excel
  7. Save workbook before any other changes
 

Test the code:

  1. Go to TOOLS > MACRO > MACROS
  2. When the dialog appears, select (GetEnvironVariables)
  3. Press Run
 

Sample File:

GetEnvironInfo.zip 7.21KB 

Approved by mdmackillop


This entry has been viewed 210 times.

Please read our Legal Information and Privacy Policy
Copyright @2004 - 2014 VBA Express