複数ブックのシートを1つのブックにコピーする (Excel 2000/2002/2003/2007/2010/2013/2016) ツイート 特定のフォルダにある複数のブックから、特定のシートを1つのブックにコピーして集約します。 次のサンプルは、"C:\Data\Source\"フォルダ内のすべてのExcelブックについて、「報告書」という名前のシートを新規ブックにコピーします。 このとき、集約用ブック内のシート名が重複しないよう、シート名をそのシートのセルA1の値に変更します。 Sub Sample() Dim sFile As String Dim sWB As Workbook, dWB As Workbook Dim dSheetCount As Long Dim i As Long Const SOURCE_DIR As String = "C:\Data\Source\" C