Environ 函数

重要:  本文是由机器翻译的,请参阅免责声明。请在 此处 中查找本文的英文版本以便参考。

注意: 如果 Microsoft Jet 表达式服务运行在沙盒模式下,可防止潜在不安全的表达式的求值,则禁用函数、 方法、 对象或本主题中介绍的属性。沙盒模式的详细信息,"沙盒模式"中搜索帮助。

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

语法

那么 Environ ( { envstring |数字} )

那么 Environ函数语法具有以下参数︰

参数

说明

envstring

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

数字

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


注解

如果无法找到envstring在环境字符串表中,为零长度字符串 (""),则返回。否则,那么 Environ将返回到指定envstring; 分配的文本即文本关注等号 (=) 环境字符串表该环境变量中。

如果指定数字,则返回占据环境字符串表中的数值位置的字符串。在此例中, Environ返回的所有文本,包括envstring。如果在指定位置没有环境字符串,那么 Environ将返回的零长度字符串。

示例

注意: 下面的示例说明使用此函数在 Visual Basic for Applications (VBA) 模块。有关处理 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

注意: 机器翻译免责声明:本文是由无人工介入的计算机系统翻译的。Microsoft 提供机器翻译是为了帮助非英语国家/地区用户方便阅读有关 Microsoft 产品、服务和技术的内容。由于机器翻译的原因,本文可能包含词汇、语法或文法方面的错误。

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

此信息是否有帮助?

谢谢您的反馈!

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

×