通过

Environ 函数

  • 项目

返回与操作系统环境变量关联的 字符串 。 在 Macintosh 上不可用。

语法

Environ ( { envstring | number } )

Environ 函数语法包含以下命名参数：

Part 说明
envstring 可选。 包含环境变量的名称的字符串表达式。
number 可选。 与环境-字符串此表中的环境字符串的数值顺序对应的数值表达式。 number参数可以是任何数值表达式，但在计算它之前将舍入为整数。

备注

如果在环境-字符串表中找不到 envstring，则会返回零长度字符串 ("")。 否则，Environ 将返回分配给指定 envstring 的文本；即，在环境-字符串表中跟在等号 (=) 后面表示环境变量的文本。

如果指定了 number，则会返回在环境-字符串表中占用该数值位置的字符串。 在这种情况下，Environ 将返回所有文本，包括 envstring。 如果指定位置没有环境字符串，Environ 将返回零长度字符串。

示例

此示例使用 Environ 函数提供环境-字符串表中的条目编号和 PATH 语句的长度。 在 Macintosh 上不可用。

Dim EnvString, Indx, Msg, PathLen    ' Declare variables.
Indx = 1    ' Initialize index to 1.
Do
    EnvString = Environ(Indx)    ' Get environment 
                ' variable.
    If Left(EnvString, 5) = "PATH=" Then    ' Check PATH entry.
        PathLen = Len(Environ("PATH"))    ' Get length.
        Msg = "PATH entry = " & Indx & " and length = " & PathLen
        Exit Do
    Else
        Indx = Indx + 1    ' Not PATH entry,
    End If    ' so increment.
Loop Until EnvString = ""
If PathLen > 0 Then
    MsgBox Msg    ' Display message.
Else
    MsgBox "No PATH environment variable exists."
End If

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。