如何在vba中获取环境变量的值?

环境变量(environment variables)一般是指在操作系统中用来指定操作系统运行环境的一些参数,如:临时文件夹位置和系统文件夹位置等。
环境变量是在操作系统中一个具有特定名字的对象,它包含了一个或者多个应用程序所将使用到的信息。例如Windows和DOS操作系统中的path环境变量,当要求系统运行一个程序而没有告诉它程序所在的完整路径时,系统除了在当前目录下面寻找此程序外,还应到path中指定的路径去找。用户通过设置环境变量,来更好的运行进程。
比如按下WIN键+R组合快捷键,在“运行”对话框中“打开”组合框中输入“%windir%”,既可以进入到“C:\Windows”文件夹。
1
其中windir就是一个环境变量,它返回操作系统目录的位置。
所谓的环境变量就是系统预先设置的一些字符串,用来代替那些长的路径字符串等。
想看本机都有哪些环境变量,可以通过右键桌面我的电脑(计算机)→属性→高级系统设置→环境变量 中查看。
2
在vba中,可以使用Environ函数来获取想要的环境变量的值。
比如要获取windir环境变量的值,可以用以下代码
Sub QQ1722187970()
    MsgBox Environ("windir")
End 

如果想要获取所有的环境变量以及环境变量的值,可以使用如下的代码:

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = ActiveSheet
    For i = 1 To 100
        oWK.Cells(i, 1) = VBA.Environ(i)
    Next i
End Sub
       

发表评论