【EXCEL VBA】デスクトップのパスを取得したい

2020.10.23

パソコンの使用者毎に「デスクトップ」や「ドキュメント」などのフォルダは異なります。これら特殊フォルダのパスを取得する方法について紹介します。

WshShellクラスのSpecialFoldersで解決する

WshShellクラスのSpecialFoldersを利用することで特殊フォルダのパスを取得することができます。SpecialFoldersに指定する引数の一部と説明を以下に示します。

文字列内容
Desktopログインユーザーのデスクトップ
MyDocumentsログインユーザーのドキュメント
Favoritesログインユーザーのお気に入り
Fontsフォント
Programsログインユーザーのプログラムメニュー
Recentログインユーザーの最近使ったファイル
SendToログインユーザーの送る
StartMenuログインユーザーのスタートメニュー
Startupログインユーザーのスタートアップ
Templatesログインユーザーの新規作成のテンプレート

SpecialFoldersの引数一覧は公式を参照してください。

Environment.SpecialFolder 列挙型 (System)
システムの特別なフォルダーへのディレクトリ パスを取得するために使用される列挙定数を指定します。
learn.microsoft.com

サンプルプログラム

サンプルプログラムを動かすには参照設定が必要です。「Windows Script Host Object Model」を事前に選択しておいてください。

【EXCEL VBA】IWshRuntimeLibrary.WshShellを利用したい
IWshRuntimeLibrary.WshShellを利用するには、VBEの参照設定を変更する必要があります。参照可能なライブラリファイルとして「Windows Script Host Object Model」が利用できるように設定しま...
vba-labo.rs-techdev.com
2020.10.24
 
Option Explicit

Sub sample()
    Dim sh As New IWshRuntimeLibrary.WshShell
    
    Debug.Print "Desktop = " & sh.SpecialFolders("Desktop")
    Debug.Print "MyDocuments = " & sh.SpecialFolders("MyDocuments")
    Debug.Print "Favorites = " & sh.SpecialFolders("Favorites")
    Debug.Print "Fonts = " & sh.SpecialFolders("Fonts")
    Debug.Print "Programs = " & sh.SpecialFolders("Programs")
    Debug.Print "Recent = " & sh.SpecialFolders("Recent")
    Debug.Print "SendTo = " & sh.SpecialFolders("SendTo")
    Debug.Print "StartMenu = " & sh.SpecialFolders("StartMenu")
    Debug.Print "Startup = " & sh.SpecialFolders("Startup")
    Debug.Print "Templates = " & sh.SpecialFolders("Templates")

End Sub
スポンサーリンク