VBA デスクトップのパスを取得

実務では、ユーザのデスクトップのパスを取得する場面があります。今日は、デスクトップのパスの取得方法を見て見ましょう。

デスクトップのパスを取得

Sub test()
' デスクトップのパスを取得
' 「ツール」→「参照設定」→「Windows Script Host Object Model」をつけることが必要


    Dim myShell As New IWshRuntimeLibrary.WshShell
    Dim myPath As String
    
    myPath = myShell.SpecialFolders("Desktop")

     MsgBox myPath


End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事