VBAで環境変数を取得する

VBAでコンピュータ名を取得してうんちゃらかんちゃらやらなきゃならなくて、APIとかWSH使うのめんどくさいなあと思ったらEnvironって環境変数取ってくる関数あって便利だった。

https://msdn.microsoft.com/ja-jp/library/office/gg264486.aspx

こんな感じで取得できるキーを持ってこれる。

Dim env As String: env = ""
i = 1
Do Until Environ(i) = ""
    env = Mid(Environ(i), 1, InStr(Environ(i), "=") - 1)
    Debug.Print env
    i = i + 1
Loop

ちなみにコンピュータ名はこれで取ってこれる。

Debug.Print Environ("COMPUTERNAME")