行いたいこと
Excel VBA を使用して
Windows PC 内のダウンロードフォルダまでの
パスをイミディエイトウィンドウに出力させる。
コード
|
1 2 3 4 5 6 7 8 9 10 |
Sub GetDownloadsFolderPath() Dim shell As Object Dim downloadsPath As String Set shell = CreateObject("WScript.Shell") downloadsPath = shell.SpecialFolders("MyDocuments") & "\Downloads" ' イミディエイトウィンドウにパスを出力 Debug.Print "ダウンロードフォルダのパスは：" & downloadsPath End Sub |
実行結果
・ダウンロードフォルダのパスは：
C:\Users\xxx\Documents\Downloads
