注意
如果 Microsoft Jet 表达式服务在沙盒模式下运行，则本主题中描述的函数、方法、对象或属性将被禁用，这会阻止对潜在不安全表达式进行评估。 有关沙盒模式的详细信息，请在帮助中搜索“沙盒模式”。
返回与操作系统环境变量关联的 字符串 。 在 Macintosh 上不可用
语法
Environ ( { envstring | number } )
Environ 函数语法具有以下参数：
| 参数 | 说明 |
|---|---|
| envString | 可选。 包含环境变量名称的字符串表达式。 |
| 编号 | 可选。 与环境字符串表中环境字符串的数字顺序相对应的数值表达式。 number 参数可以是任何数值表达式，但在计算前会四舍五入为整数。 |
备注
如果在 environment-string 表中找不到 envstring ，则返回零长度字符串 (“”) 。 否则， Environ 返回分配给指定 envstring 的文本;也就是说，该环境变量的 environment-string 表中等号 (=) 后面的文本。
如果指定 number，则返回在 environment-string 表中占据该数字位置的字符串。 在这种情况下， Environ 返回所有文本，包括 envstring。 如果指定位置中没有环境字符串， Environ 将返回零长度字符串。
示例
注意
下面的示例演示了在Visual Basic for Applications (VBA) 模块中使用此函数。 有关使用 VBA 的详细信息，请在“搜索”旁边的下拉列表中选择“开发人员参考”，然后在搜索框中输入一个或多个术语。
此示例使用 Environ 函数从 environment-string 表中提供语句的 PATH 条目编号和长度。 在 Macintosh 上不可用。
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