ChatGPTでマクロ作成②〜複数のブックのデータをまとめる〜

Sub CombineExcelData()
Dim FolderPath As String
Dim OutputWorkbook As Workbook
Dim OutputWorksheet As Worksheet
Dim File As String
Dim ColumnIndex As Long’ フォルダのパスを指定
   FolderPath = “フォルダのパスをここに入力“‘ マクロが保存されているワークブックを取得
   Set OutputWorkbook = ThisWorkbook’ フォルダ内のエクセルファイルをループ処理
   File = Dir(FolderPath & “\*.xlsx”)
ColumnIndex = 1 ‘ データを出力する最初の列
   Do While File <> “”

‘ ターゲットのエクセルファイルを開く
       Dim TargetWorkbook As Workbook
Set TargetWorkbook = Workbooks.Open(FolderPath & “\” & File)

       ‘ エクセルファイル名を出力
       Dim FolderName As String
FolderName = Mid(File, 1, InStrRev(File, “.”) – 1) ‘ 拡張子を除いたファイル名
       OutputWorkbook.Sheets(1).Cells(1, ColumnIndex).Value = FolderName
‘ C2:C13のデータを抜き出して出力
       Dim TargetData As Range
Set TargetData = TargetWorkbook.Sheets(1).Range(“C2:C13”)
Dim RowIndex As Long
For RowIndex = 2 To 14
OutputWorkbook.Sheets(1).Cells(RowIndex, ColumnIndex).Value = TargetData.Cells(RowIndex – 1, 1).Value

Next RowIndex

‘ ターゲットのエクセルファイルを閉じる
       TargetWorkbook.Close SaveChanges:=False

‘ 次の列に移動
       ColumnIndex = ColumnIndex + 1

‘ 次のファイルを取得
       File = Dir

Loop

‘ データを整理する
   OutputWorkbook.Sheets(1).Columns.AutoFit

End Sub