Получить значение необходимой переменной среды — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Для того, чтобы получить значение переменной среды, можно воспользоваться функцией 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

Похожие записи/страницы:

Leave a Comment