Home » エクセルマクロ・Excel VBAの使い方 » Excel VBAでデスクトップにフォルダーを作成する

Excel VBAでデスクトップにフォルダーを作成する

動作検証バージョン: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

サンプルマクロで行っている処理

WshShellオブジェクトのSpecialFoldersプロパティを使って、デスクトップのパスを取得して、末尾に「\」を付加しておきます。

 Dim path_desktop As String
 path_desktop = _
   CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"

デスクトップのフルパスに、新しいフォルダー名を付加した文字列を、VBAのMkDir関数の引数に指定して、フォルダーを作成しています。

 MkDir path_desktop & "新しいフォルダー"

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » Excel VBAでデスクトップにフォルダーを作成する

「エクセルマクロ・Excel VBAの使い方」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.