No.2ベストアンサー
- 回答日時:
こんばんは。
出来れば標準モジュールに入れてください。
Sub CreateDir()
'サブフォルダを作るマクロ
Dim i As Integer
Dim NewSubFolders As Range
Dim ParentFolder As String
'----------------------------------------
ParentFolder = "C:\Temp\" '指定のフォルダ
'----------------------------------------
'A1から空白セルなしに入れる
Set NewSubFolders = Range("A1", Range("A65536").End(xlUp))
If Right(ParentFolder, 1) <> "\" Then ParentFolder = ParentFolder & "\"
For i = 1 To NewSubFolders.Rows.Count
'目的のサブフォルダがない場合、フォルダを作る
If Dir(ParentFolder & NewSubFolders(i, 1).Value, vbDirectory) = "" Then
MkDir ParentFolder & NewSubFolders(i, 1).Value
End If
Next i
Set NewSubFolders = Nothing
End Sub
No.1
- 回答日時:
VBAでCreateFolderメソッドをループでまわせばいいのではないでしょうか。
下のは例です。
Sub CreatFolders()
Dim fs As Object
Dim Column As Integer
Dim Dir As String
Set fs = CreateObject("Scripting.FileSystemObject")
Column = 1
Dir = "C:\TEMP" 'フォルダを作成するフォルダを指定
While (Cells(Column, 1) <> "")
fs.CreateFolder (Dir & "\" & Cells(Column, 1))
Column = Column + 1
Wend
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存 2 2022/04/18 13:15
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/12 16:58
- Excel(エクセル) 【Excel】指定した文字列に該当する行を重複しないようにリスト 3 2022/03/30 12:27
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 10:00
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
勃起する時って痛いんですか? ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
ある範囲のセルから任意の値を...
-
甲状腺が腫れているが血液検査...
-
【Excelで「正弦波」のグラフを...
-
エクセル指定した範囲からラン...
-
精子が黄色?
-
2つの数値のうち、数値が小さい...
-
これって喉仏ですか? 私は女性...
-
至急!尿検査前日にオナニーし...
-
EXCELで条件付き書式で空白セル...
-
Excelで""で囲む方法
-
EXCELで式からグラフを描くには?
-
中出しをするとお腹が痛い・・・。
-
筋トレするとチンコが縮んじゃ...
-
エクセルの質問。 対象範囲...
-
精子に血が・・・
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
尿検査の前日は自慰控えたほう...
-
精子が黄色?
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
納豆食べた後の尿の納豆臭は何故?
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
おすすめ情報