Question

我正在寻找VBA中Environ函数的一些信息或代码示例来获取当前系统上的用户名。

Answer 1

Environ()可以获取任何环境变量的值。可以通过在命令提示符中执行以下命令找到它们：

set

如果您想获取用户名，请执行以下操作：

Environ("username")

如果您想获得完全限定名称，请执行以下操作：

Environ("userdomain") & "\" & Environ("username")

参考

Microsoft | Office VBA参考|语言参考VBA | Environ Function
Microsoft |办公室支持| Environ Function

Answer 2

正如Eric所提到的，你可以像这样使用带有ComputerName参数的环境：

MsgBox Environ("USERNAME")

可能有助于您了解的一些其他信息：

参数不区分大小写。
Environ功能的字符串版本稍微快一些。要调用它，请使用美元符号。（例如：Environ $（“用户名”））这将为您带来小的性能提升。
您可以使用此功能检索所有System Environment Variables。（不只是用户名。）常见的用途是获取“ComputerName”值以查看用户登录的计算机。
我不建议在大多数情况下使用它，但知道您也可以使用索引访问变量，这有时会很有用。如果使用此语法，则返回参数和的名称。通过这种方式，您可以枚举所有可用变量。有效值为1 - 255。

    Sub EnumSEVars()
        Dim strVar As String
        Dim i As Long
        For i = 1 To 255
            strVar = Environ$(i)
            If LenB(strVar) = 0& Then Exit For
            Debug.Print strVar
        Next
    End Sub

Answer 3

有时，当我们使用Environ()函数时，我们可能会得到“库或找不到属性”错误。使用VBA.Environ()或VBA.Environ$()可以避免该错误。

Environ VBA的功能代码示例

3 个答案:

参考