動作検証バージョン:Windows 11 Home + 64bit Excel バージョン 2412(ビルド18324.20012クイック実行)ベータチャネル
「excel vba デスクトップ フォルダー作成」
といった検索キーワードでアクセスがありました。
Excel VBAで、デスクトップにフォルダーを作成するには、どのようなコードを書けばいいのか調べていた方による検索でしょう。
[スポンサードリンク]
デスクトップにフォルダーを作成するサンプルマクロ
以下のExcelマクロを実行すると、デスクトップに「新しいフォルダー」という名前のフォルダーが作成されます。
Sub デスクトップにフォルダーを作成する()
Dim path_desktop As String
path_desktop = _
CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
MkDir path_desktop & "新しいフォルダー"
End Sub
Dim path_desktop As String
path_desktop = _
CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
MkDir path_desktop & "新しいフォルダー"
End Sub
サンプルマクロで行っている処理
WshShellオブジェクトのSpecialFoldersプロパティを使って、デスクトップのパスを取得して、末尾に「\」を付加しておきます。
Dim path_desktop As String path_desktop = _ CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
デスクトップのフルパスに、新しいフォルダー名を付加した文字列を、VBAのMkDir関数の引数に指定して、フォルダーを作成しています。
MkDir path_desktop & "新しいフォルダー"
[スポンサードリンク]
Home » エクセルマクロ・Excel VBAの使い方 » Excel VBAでデスクトップにフォルダーを作成する