Функция Environ

Примечание : Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".

Возвращает значение типа String, связанное с переменной среды в операционной системе. Недоступно в macOS.

Синтаксис

Environ( { строка_конфигурации | число } )

Функция Environ имеет следующие аргументы:

Аргумент

Описание

строка_конфигурации

Необязательный аргумент. Строковое выражение, содержащее имя переменной среды.

число

Необязательный аргумент. Числовое выражение, указывающее номер строки конфигурации в одноименной таблице. Аргумент число может быть любым числовым выражением, но перед вычислением он округляется до целого числа.


Замечания

Если строка_конфигурации в таблице не обнаружена, возвращается пустая строка (""). В противном случае функция Environ возвращает текст, назначенный указанной строке_конфигурации, т. е. текст, следующий за знаком равенства (=) в таблице строк конфигурации для данной переменной среды.

Если задать число, возвращается строка, занимающая указанную позицию в таблице. В этом случае 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
Совершенствование навыков
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×