【VBA】デスクトップのパスを取得する方法2選

2024年4月14日 2025年4月19日

VBAでデスクトップのパスを取得する方法を2つ紹介します。

この記事ではWshShellオブジェクトを使用する方法とEnviron関数を使用する方法を紹介します。

【実装コード】WshShellオブジェクトを使用してデスクトップのパスを取得

VBA

Copy

Sub sample()

' WScript.Shellオブジェクトを作成

Dim wsh As Object

Set wsh = CreateObject("WScript.Shell")

    'WScript.ShellオブジェクトのSpecialFoldersプロパティを使用して、デスクトップのパスを取得

Dim desktopPath As String

desktopPath = wsh.SpecialFolders("Desktop")

' オブジェクトを解放

Set wsh = Nothing

' メッセージボックスにデスクトップパスを表示

MsgBox desktopPath

End Sub

VBA