Applies ToMicrosoft 365 专属 Access Access 2024 Access 2021 Access 2019 Access 2016

注意: 如果 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 IfLoop Until EnvString = ""If PathLen > 0 Then    ' Display message.    MsgBox MsgElse    MsgBox "No PATH environment variable exists."End If

需要更多帮助?

需要更多选项?

了解订阅权益、浏览培训课程、了解如何保护设备等。

社区可帮助你提出和回答问题、提供反馈,并听取经验丰富专家的意见。