Environ 函数

注意: 如果 Microsoft Jet Expression Service 在沙盒模式下运行,则禁用本主题中所述的函数、方法、对象或属性,这会阻止评估可能不安全的表达式。 有关沙盒模式的详细信息,请搜索"帮助"中的"沙盒模式"。

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

语法

Environ ( { envstring | number } )

Environ函数语法具有以下参数:

参数

说明

envstring

可选。 包含环境变量名称的字符串表达式。

number

可选。 对应于环境字符串表中环境字符串数值顺序的数字表达式。 number参数可以是任何数值表达式,但在计算前舍入为一个整数。


备注

如果在 环境字符串表中找不到 envstring, 则返回零长度字符串 ("") 字符串。 否则 ,Environ 返回分配给指定 envstring 的文本;也就是说,等号后的文本 (=) 环境变量的环境字符串表中的值。

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

示例

注意: 以下示例演示了在 VBA Visual Basic for Applications (模块) 函数。 有关使用 VBA 的信息,请在"搜索"旁边的下拉列表中选择"开发人员参考",在搜索框中输入一个或多个术语。

此示例使用 Environ 函数提供环境字符串表中的 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

需要更多帮助?

扩展你的 Office 技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×