Excelマクロでフォルダ一覧作成

質問

ExcelマクロでExcelファイルのＡ列に30行程、入力されている一覧の文字でフォルダを指定したフォルダ内に作成するソースを考えています。色々、試してはいますがどれもうまくいきません。教えていただけると助かります。

回答No.1

nda23

Const 指定フォルダ = "C:\～\"
Dim 行 As Long
Dim 名 As String

For 行 = 1 To 30
　　　　名 = ThisWorkbook.WorkSheets(1).Cells(行, 1)
　　　　MkDir 指定フォルダ & 名
Next

MkDirで既に同じ名前のフォルダがあると異常終了します。
エラーハンドリングして回避してください。