VBA 指定した範囲のデータ抽出

質問

Excel VBA初心者の質問です。
以下の作業を行うため、30個のファイルをVBAを活用して処理したいのですが、
詳しい方おられましたらコードの書き方をご教授お願いいたします。
ネットで参考になるコードをいくつか調べたのですがギブアップでした。

１．フォルダA内の一番上のファイルから順番に処理(ファイル名:1101,1102,1103・・・1130)
※ファイルのシート名はそれぞれ「"データ"番号」となっている。
２．「"データ"1101」シートのデータ範囲(A1:AT1000)、(A7000::AT8000)の2つの範囲をコピー
３．新しいBookのSheet1に上詰めで貼り付け
４．次ファイルの「"データ"1102」シートに２の処理を行う
５．新しいBookのSheet2に上詰めで貼り付け

以上の処理を1130のファイルまで繰り返し行います。

回答No.1

ushi2015

こんにちは
Sub test()
　　Dim i As Long
　　Dim k As Long
　　Dim p As String
　　Dim b As Workbook
　　Dim n As Workbook
　　Dim s As Worksheet
　　p = "C:\A\"
　　Set n = Workbooks.Add
　　Application.ScreenUpdating = False
　　On Error Resume Next
　　For i = 1101 To 1130
　　　　Set b = Workbooks.Open(p & i & ".xlsx", , True)
　　　　If b Is Nothing Then
　　　　　　MsgBox p & i & ".xlsx 無し"
　　　　Else
　　　　　　k = k + 1
　　　　　　Set s = n.Worksheets("Sheet" & k)
　　　　　　If s Is Nothing Then
　　　　　　　　Set s = n.Worksheets.Add
　　　　　　　　s.Name = "Sheet" & k
　　　　　　End If
　　　　　　b.Worksheets("データ" & i).Range("A1:AT1000").Copy s.Range("A1")
　　　　　　b.Worksheets("データ" & i).Range("A7000::AT8000").Copy _
　　　　　　　　s.Range("A" & Rows.Count).End(xlUp).Offset(1)
　　　　End If
　　　　b.Close
　　　　Set b = Nothing
　　Next
　　On Error GoTo 0
　　Application.ScreenUpdating = True
End Sub
こういう事でしょうか？