Примечание: Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений 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 IfLoop Until EnvString = ""If PathLen > 0 Then ' Display message. MsgBox MsgElse MsgBox "No PATH environment variable exists."End If
