![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
デスクトップのパスは、
ログインユーザー毎に違います!
![デスクトップのパス(ユーザー毎に違う)](https://excel-vba.work/wp-content/uploads/2021/02/vba_getdesktopfolder_002.png)
![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBAで
・「ログインユーザー毎のデスクトップのパス」を取得
できます!
VBAコード
「WScript.Shellオブジェクト」の「SpecialFolders」プロパティにより
・「ログインユーザー毎のデスクトップのパス」を取得
できます。
Option Explicit
Sub sample()
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
'デスクトップのパスを取得
MsgBox "デスクトップのパスは『" + wsh.SpecialFolders("Desktop") + "』です!"
'後片付け
Set wsh = Nothing
End Sub
実行結果
デスクトップのパスを取得できました。
![実行結果](https://excel-vba.work/wp-content/uploads/2021/02/vba_getdesktopfolder_001.png)
参考①
「SpecialFolders」プロパティはWindowsの特別なファルダパスを取得できるモノです。
デスクトップのパス以外も取得できます。
詳細は公式サイトをご確認ください。
参考②
「ログインユーザー名」や「コンピューター名」を取得することもできます。
詳細は以下の記事をご確認ください。
●ログインユーザー名を取得
●コンピューター名を取得