シートを別のブックにコピーする方法について複数の記事を検索しました。すべての場合において、シート名は既知である。VBAを使用してExcelで連続したシートをコピーする方法
現在のシートにいる場合、現在のシートと次の2枚の連続するシートを新しいブックにコピーするvbaを作成するにはどうすればよいですか。シートの名前は毎週変わるので、プログラムは現在アクティブなシートと次の2枚だけを選択する必要があります。ご協力ありがとうございました。
以下のコードはあなたの必要条件を満たすでしょう。それを実行するときに最後の3枚目のワークブックにいることを確認してください。
Option Explicit
Sub copyConsecutiveSheets()
Dim x As Integer
Dim k As Integer
Dim j As Integer
Dim b As String
x = 1
k = ActiveSheet.Index
ThisWorkbook.Sheets(k).COPY
For j = 1 To 2
b = ActiveWorkbook.Name
ThisWorkbook.Sheets(k + j).COPY After:=Workbooks(b).Worksheets(x)
x = x + 1
Workbooks(b).Activate
Next
End Sub
可能な重複[VBAを使用して別のブックにシートをコピーする方法？]（https://stackoverflow.com/questions/6863940/how-to-copy-sheets-to-another-workbook-using- vba） –