フォルダ自動作成とファイル保存（コピーを保存）

シートに予め入力されたデータをフォルダ名にして、フォルダを自動作成する方法を紹介します。
また、作成したフォルダの中にブックをコピーして保存する方法を紹介します。

完成イメージ
コード
1. コピーを保存
まとめ

完成イメージ

ワークシートにフォルダ名とするデータを用意しておきます。（今回はアルファベットを入力しています）

フォルダの中にブックをコピーして保存します。（今回はブック名をフォルダ名と同じアルファベットにしています）

コード

Sub フォルダ生成()
    Dim i As Long
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        MkDir ThisWorkbook.Path & "\" & Cells(i, 1)　
    Next i
End Sub

'MkDir フォルダパス

MkDir関数でフォルダを作成できます。

コピーを保存

Sub コピーを保存()
    Dim i As Long
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Cells(i, 1) & "\" & Cells(i, 1) & ".xlsx"  '同じフォルダ内のフォルダにコピーして保存
    Next i
End Sub

ファイルの保存方法（コピーを保存を含む）についてはこちらの記事で紹介しています。↓