【VBA】ログインユーザー名を取得する

VBAコード

Windowsにユーザー名「user」でログインしている状態で、以下を実行します。

Sub sample()
    'ユーザー名を取得
    MsgBox Environ("USERNAME")
End Sub

実行結果

ユーザー名を取得できました。

参考①

「ログインユーザー名」以外にも、「Environ関数」は「コンピューター名」や「CPUの名称」を取得できます。

詳細は以下の記事をご確認ください。

参考②

「WScript.Shell」の「SpecialFolders」により、デスクトップのパスを取得できます。

詳細は以下の記事をご確認ください。

参考③

「Environ関数」は、Windowsの環境変数に設定された値を取得する関数です。
上記以外も取得します。

詳細は公式サイトをご確認ください。

参考④

ログインユーザー名を取得する方法として、「WshNetworkオブジェクト」を使用する方法もあります。

ただEnviron関数を使用した方法のほうが簡易のため、こちらの方法はオススメしません。
知識として知っておくだけでよいです。

'変数の宣言を必須
Option Explicit

Sub sample()

    Dim wnet As Object
    
    Set wnet = CreateObject("WScript.Network")
    
    'ユーザー名を取得
    MsgBox (wnet.UserName)
    
    '後片付け
    Set wnet = Nothing
    
End Sub

「WshNetworkオブジェクト」の詳細は、公式サイトをご確認ください。