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

VBAでファイル操作や保存先を指定する際、「デスクトップのパスを取得したい」と思ったことはありませんか？

本記事では、VBAで簡単にデスクトップのパスを取得する2つの方法を、実際のサンプルコードとともに分かりやすく解説します。

初心者の方でもすぐに使えるテクニックなので、ぜひ参考にしてください。

リンク

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

Copyをクリックするとコピーできます。

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

Copyをクリックするとコピーできます。

VBA

Copy

Sub sample()

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

Dim desktopPath As String

desktopPath = Environ("USERPROFILE") & "\Desktop"

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

MsgBox desktopPath

End Sub

今回は、VBAでデスクトップのパスを取得する2つの方法（WshShellオブジェクト・Environ関数）をご紹介しました。

どちらの方法も簡単に実装できるので、用途や好みに合わせて使い分けてみてください。

デスクトップのパスを取得できれば、ファイルの保存や操作がより便利になります。

ぜひご活用ください。

リンク