1. 遍历环境变量
Sub PrintEnv()
Dim strEnv As String
Dim intCount As Long
intCount = 1
Do
strEnv = Environ(intCount)
Debug.Print strEnv
intCount = intCount + 1
Loop Until strEnv = ""
End Sub
2. 使用环境变量
用Ctrl+G调出立即执行窗口,输入如下代码↓
?Environ("windir")
按下回车后输出结果如下↓
C:\windows