vba - Excel VBA - 列出所有 VBA 环境变量

Question

如何让 excel 在我的“临时”表上列出所有可用的环境变量？下面的代码没有为我返回任何东西......

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

谢谢

Answer 1

从您的代码中修改了几行，如下所示。

Sub ListEnvironVariables()
    Dim strEnviron As String
    Dim i As Long
    For i = 1 To 255
        strEnviron = Environ(i)
        If LenB(strEnviron) = 0& Then Exit For
        With Worksheets("temp")
            .Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Value = strEnviron
        End With
    Next
End Sub