【VBA】同じようなブックを量産するサンプル

同じような作業を複数ブックに対してやるのはちょっとかっこ悪い。
最近はなるべくマクロで自動化してます。

Sub CreateBooks()
    Set Input_Book = ThisWorkbook                   'マクロ搭載ブック
    Set Input_Sheet = Input_Book.Worksheets(1)      'マクロ搭載シート
    
    Set Output_Book = Workbooks(1)                  'ターゲットブック
    Set Output_Sheet = Output_Book.Worksheets(1)    'ターゲットシート
    
    '10回繰り返す
    For i = 1 To 10
        Set Output_Book = Workbooks.Add                                      'ブック追加
        Output_Book.SaveAs Filename:=ThisWorkbook.Path & "\" & i & "_.xlsx"  'ファイルを名前をつけて保存
        Output_Book.Close                                                    'ブックを閉じる
    Next
    MsgBox ("finish")
    
End Sub

実行するとこんな感じに。