【VBA】デスクトップのパス取得方法(特殊フォルダ)

デスクトップのパス取得方法(特殊フォルダ)

今回はVBAでデスクトップフォルダのパスを取得する方法を紹介します。

ドキュメントフォルダのパスは「C:\Users\ユーザ名\Desktop」となっており、ログインユーザによって変わります。

そのため、このパスをそのままマクロに書くと1人のユーザーしか使えなくなってしまいます。

マクロでデスクトップフォルダを指定するときは、通常のパスではなく今回紹介する方法を使いましょう。

デスクトップフォルダのパスを取得する方法

Sub GetDesktopFolderPath()
    
    'Windows Script Hostのオブジェクトを取得
    Dim wsh As Object
    Set wsh = CreateObject("WScript.Shell")
    
    Debug.Print wsh.SpecialFolders("Desktop")
    
End Sub

このプログラムを実行すると、「C:\Users\ユーザ名\Desktop」のパスがイミディエイトウィンドウに表示されます。

この方法であれば、ユーザ名が自動的にログインしている人の名前となるため、誰でもマクロを使うことができます。

《VBA中級者向けの本》
VBA上級者を目指したい人にはパーフェクトExcel VBA一択です。

created by Rinker
技術評論社
¥3,608 (2022/07/01 11:26:51時点 Amazon調べ-詳細)

《マクロ作成に困ったら》
自分で作るのが難しいと感じたら、プロに作ってもらう手もあります。
マクロ(VBA)の依頼におすすめのプログラマーを紹介の記事をご覧ください。

他の「VBA」の記事はこちらからどうぞ

VBA

Posted by やろまい