Kак получить значение необходимой переменной среды?

Категория: Basic
2012-08-02 14:51:46

Для того, чтобы получить значение переменной среды, можно воспользоваться функцией Environ()

Для получения же списка всех доступных переменных среды Вашей операционной системы, можно воспользоваться нижеопубликованным макросом:

code: #vba
Private Sub CreateListEnvironVariables()
    Workbooks.Add xlWBATWorksheet '[2]

    Application.ScreenUpdating = False '[1]
    iCount% = 2:  iVariable$ = Environ(1)
    Do Until iVariable$ = ""
         iPosition% = InStr(iVariable$, "=")
         Cells(iCount%, 1) = Mid(iVariable$, 1, iPosition% - 1)
         Cells(iCount%, 2) = Mid(iVariable$, iPosition% + 1)
 
         iVariable$ = Environ(iCount%)
         iCount% = iCount% + 1
    Loop
    With Cells(1).Resize(, 2) 'Range("A1:B1")
         .Value = Array("Имя", "Значение")
         .Font.Bold = True
         .EntireColumn.AutoFit
    End With
    Application.ScreenUpdating = False
End Sub
Поделиться:

Похожие статьи:

теги: excel, vba, макросы, операционная система