Windowsの環境変数を取得する - catsの出来る事からこつこつと…

Windowsの環境変数を取得する

VBAで、Windowsの環境変数に割当てられた文字列をを取得するサンプルです。

Private Sub KankyoHensu()
Dim K As Integer
Dim S As String


Do


K = K + 1
S = Environ(K)
Debug.Print S

Loop Until S = ""

End Sub

上記だと環境変数全部が取得出来ますが、下記の様に指定する事も可能です。

Private Sub KankyoHensu2()


Debug.Print Environ("COMPUTERNAME")


End Sub

なお、取得できる環境変数はWindowsのバージョンによって違うので、注意してください。