VBA 他のエクセルファイルデータを読み込む
エクセルのVBAに関する質問です。
かじった程度の知識でがんばってはみたのですが、以下のことがどうしてもできません。
集計ファイルと、それぞれが入力するファイルがいくつか(具体的には1A.xls、1B.xls、2A.xls、2B.xlsといった数字とアルファベットの組み合わせ)あります。
入力ファイルに書かれているデータを集計ファイルに取り込もうと考えています。
入力ファイル名が(1.xls,2.xls・・・)の様に数字だけの取り込みはできました。
m = Val(UserForm2.TextBox1.Text)
For i = 1 To m
On Error GoTo myError
Workbooks.Open Filename:="C:" & i & ".xls", UpdateLinks:=0
Range("f65536").End(xlUp).Activate
Workbooks(i & ".xls").Activate
Sheets("入力ファイル").Select
Range("A3:X52").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks("集計ファイル.xls").Activate
Sheets("DB").Activate
Range("a65536").End(xlUp).Activate
Selection.Offset(1).Select
ActiveSheet.Paste
Range("a65536").End(xlUp).Select
Workbooks(i & ".xls").Close SaveChanges:=False
myError:
Next i
Application.DisplayAlerts = True
こんな感じです。
これを、数字だけでなく数字+アルファベット.xlsのファイル名にしてデータを取り込むにはどうすればいいのでしょうか?色々と試行錯誤をしたり、ネットで調べたりしたのですが、詰んでしまいました。
どなたかお助け下さい。
お礼
大元はxls.が5万件ずつ分割されています。 それを統合。 やりたいことは複雑な計算にはなります(累計金額、頻度、グルーピングetc) xlsxで統合しましたが動きが遅く早くできないかと。。
補足
マクロ有効ブックにしても容量変わらず。