Примечание
Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".
Возвращает значение типа String, связанное с переменной среды в операционной системе. Недоступно в macOS.
Синтаксис
Environ( { envstring | number } )
Функция Environ имеет следующие аргументы:
| Аргумент | Описание |
|---|---|
| строка_конфигурации | Необязательный аргумент. Строковое выражение, содержащее имя переменной среды. |
| число | Необязательный аргумент. Числовое выражение, указывающее номер строки конфигурации в одноименной таблице. Аргумент number может быть любым числовым выражением, но перед вычислением округляется до целого числа. |
Замечания
Если не удается найти envstring в таблице строк среды, возвращается строка нулевой длины (""). В противном случае Environ возвращает текст, назначенный заданной envstring; то есть текст после знака равенства (=) в таблице строки среды для этой переменной среды.
Если указать число, возвращается строка, занимающая эту числовую позицию в таблице строк среды. В этом случае Environ возвращает весь текст, включая envstring. Если в указанной позиции нет строки, Environ возвращает пустую строку.
Пример
Примечание
В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.
В этом примере функция Environ используется для предоставления номера записи и длины инструкции PATH из таблицы строк среды. Недоступно в macOS.
Dim EnvString, Indx, Msg, PathLen ' Declare variables.
Indx = 1 ' Initialize index to 1.
Do
' Get environment variable.
EnvString = Environ(Indx)
' Check PATH entry.
If Left(EnvString, 5) = "PATH=" Then
' Get length.
PathLen = Len(Environ("PATH"))
Msg = "PATH entry = " & Indx & " and length = " _
& PathLen
Exit Do
Else
' Not PATH entry, so increment.
Indx = Indx + 1
End If
Loop Until EnvString = ""
If PathLen > 0 Then
' Display message.
MsgBox Msg
Else
MsgBox "No PATH environment variable exists."
End If