注意: 如果 Microsoft Jet 表达式服务在沙盒模式下运行，则禁用本主题中所述的函数、方法、对象或属性，这会阻止计算潜在的不安全表达式。 有关沙盒模式的详细信息，请在“帮助”中搜索“沙盒模式”。
返回与操作系统环境变量关联的 字符串 。 在 Macintosh 上不可用
语法
Environ ( { envstring | number } )
Environ 函数语法具有以下参数：
|
参数 |
说明 |
|
envstring |
可选。 包含环境变量名称的字符串表达式。 |
|
number |
可选。 对应于 environment-string 表中环境字符串的数字顺序的数值表达式。 number 参数可以是任何数值表达式，但在计算它之前将舍入为整数。 |
备注
如果在 environment-string 表中找不到 envstring ，则返回零长度字符串 (“”) 。 否则， Environ 返回分配给指定 envstring 的文本;也就是说，该环境变量的环境字符串表中等号后的文本 (=) 。
如果指定 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
