VBAでダウンロードフォルダのパスを出力する
行いたいこと 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 |
…
