Примечание: Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".
Возвращает значение типа String, связанное с переменной среды в операционной системе. Недоступно в macOS.
Синтаксис
Environ( { строка_конфигурации | число } )
Функция Environ имеет следующие аргументы:
|
Аргумент |
Описание |
|
строка_конфигурации |
Необязательный аргумент. Строковое выражение, содержащее имя переменной среды. |
|
число |
Необязательный аргумент. Числовое выражение, указывающее номер строки конфигурации в одноименной таблице. Аргумент число может быть любым числовым выражением, но перед вычислением он округляется до целого числа. |
Замечания
Если не удается найти envstring в таблице строк среды, возвращается строка нулевой длины (""). В противном случае Environ возвращает текст, назначенный заданной envstring; то есть текст после знака равенства (=) в таблице строки среды для этой переменной среды.
Если задать число, возвращается строка, занимающая указанную позицию в таблице. В этом случае Environ возвращает весь текст, включая строку_конфигурации. Если в указанной позиции нет строки, 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
