Описание среды
Возвращает значение переменной среды операционной системы.
Примеры простых сред
| 123 | Sub Environ_Example ()MsgBox Environ («Имя пользователя»)Конец подписки |
Это вернет текущее имя пользователя, вошедшего в систему.
| 123 | Sub Environ_Example ()MsgBox Environ ("Имя компьютера")Конец подписки |
Это вернет имя компьютера.
Синтаксис среды
В редакторе VBA вы можете ввести «Environ (», чтобы увидеть синтаксис функции Environ:
Функция Environ содержит аргумент:
Выражение: Имя переменной среды (строка) или числовое выражение (от 1 до 255), соответствующее порядку номеров строки среды в таблице строк среды.
Примеры функции Excel VBA Environ
| 1 | MsgBox Environ (1) |
Результат: «ALLUSERSPROFILE = C: \ ProgramData»
| 1 | MsgBox Environ (0) |
Результат: ошибка времени выполнения «5».
| 1 | MsgBox Environ (256) |
Результат: ошибка времени выполнения «5».
| 1 | MsgBox Environ ("AllUsersProfile") |
Результат: «C: \ ProgramData»
Чтобы увидеть все переменные среды, определенные на вашем компьютере, вы можете использовать следующий код.
| 123456789101112131415161718192021222324 | Sub ListAllEnvironVariables ()Dim strEnviron как строкаDim VarSplit как вариантDim i как целое число, nRow как целое числоnRow = 1Диапазон ("A1"). Значение = "Индекс"Диапазон ("B1"). Значение = "Имя переменной среды"Диапазон ("C1"). Value = "Значение переменной среды"Диапазон ("A: C"). Columns.AutoFitДиапазон ("A1: C1"). Полужирный шрифт = TruenRow = 2Для i = от 1 до 255strEnviron = Среда (i)Если strEnviron "" ТогдаVarSplit = Split (strEnviron, "=")Диапазон ("A" & nRow). Значение = iДиапазон ("B" & nRow) .Value = VarSplit (0)Диапазон ("C" & nRow) .Value = VarSplit (1)nRow = nRow + 1Конец, еслиСледующийКонец подписки |
Затем вы можете увидеть все переменные среды, как показано ниже.
Результат может отличаться в зависимости от системы. Потому что есть некоторые пользовательские переменные среды, помимо переменных среды по умолчанию.
Для любой строки, которой нет в списке переменных среды, будет возвращена пустая строка («»).
| 1 | MsgBox Environ ("MyEnviron") |
Результат: ""
