EnvironVBA的功能代码示例-EnvironFunctioncodesamplesforVBA

Environ() gets you the value of any environment variable. These can be found by doing the following command in the Command Prompt:

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

set

If you wanted to get the username, you would do:

如果你想获得用户名,你会这样做:

Environ("username")

If you wanted to get the fully qualified name, you would do:

如果您想获得完全限定名称,您可以:

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

References

• Microsoft | Office VBA Reference | Language Reference VBA | Environ Function

微软| Office VBA参考|语言参考VBA |环境功能

• Microsoft | Office Support | Environ Function

微软|办公室支持|环境功能

As alluded to by Eric, you can use environ with ComputerName argument like so:

正如Eric所提到的,你可以使用带有ComputerName参数的environ,如下所示:

MsgBox Environ("USERNAME")

Some additional information that might be helpful for you to know:

一些可能对您有所帮助的其他信息:

1. The arguments are not case sensitive.

参数不区分大小写。

2. There is a slightly faster performing string version of the Environ function. To invoke it, use a dollar sign. (Ex: Environ$("username")) This will net you a small performance gain.

Environ功能的字符串版本稍微快一些。要调用它,请使用美元符号。 (例如:Environ $(“用户名”))这将为您带来小的性能提升。

3. You can retrieve all System Environment Variables using this function. (Not just username.) A common use is to get the "ComputerName" value to see which computer the user is logging onto from.

您可以使用此功能检索所有系统环境变量。 (不仅仅是用户名。)常见的用法是获取“ComputerName”值以查看用户登录的计算机。

4. I don't recommend it for most situations, but it can be occasionally useful to know that you can also access the variables with an index. If you use this syntax the the name of argument and the value are returned. In this way you can enumerate all available variables. Valid values are 1 - 255.

我不建议在大多数情况下使用它,但知道您也可以使用索引访问变量有时会很有用。如果使用此语法,则返回参数名称和值。通过这种方式,您可以枚举所有可用变量。有效值为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

Some time when we use Environ() function we may get the Library or property not found error. Use VBA.Environ() or VBA.Environ$() to avoid the error.

有些时候我们使用Environ()函数,我们可能会得到Library或property not found错误。使用VBA.Environ()或VBA.Environ $()来避免错误。