注意: 如果 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