vba sheetデータ纏める

自分の覚書

Sub TEST4()
  
  Dim row, ws, wb
  Set ws = ThisWorkbook.Worksheets("Sheet1")
  'フォルダ内のブック名を取得
  wb = Dir("C:\Users\Wataru.VAIO\Desktop\プログラミング" & "\*.xlsx")
  Debug.Print wb
  '"C:\Users\Wataru.VAIO\Desktop\プログラミング"
  
  
  
  Do While wb <> ""
    'ブックを開く
    Workbooks.Open "C:\Users\Wataru.VAIO\Desktop\プログラミング\" & wb
    'データ部分を取得
    With ActiveWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion
      row = .Rows("2:" & .Rows.Count)
    End With
    'データを入力
    ws.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(UBound(row, 1), 10) = row
    ActiveWorkbook.Close False 'ブックを閉じる
    wb = Dir() '次のブック名を取得
  Loop
  
End Sub