複数の同じフォーマットのファイルを新しいブックで一つのシートにまとめる方法

すみません。

質問を勘違いしていました。
>新しいブックで一つのシートにまとめなくてはいけません
でしたね。
Sub Sample1()
Dim buf As String, i As Long
Dim j
buf = Dir(Sheets("Sheet1").Range("A1").Value & "\*.xls")
Do While buf <> ""
Workbooks.Open Worksheets("Sheet1").Range("A1").Value & "\" & buf
Sheets("Sheet1").Range("A1:J1000").Copy
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Workbooks(buf).Activate
Application.CutCopyMode = False
Workbooks(buf).Close SaveChanges:=False
buf = Dir()
Loop
End Sub
で試してみてください。使い方などは
http://oshiete1.goo.ne.jp/qa4225063.html
を参照してみてください。同じ質問があったので気がつきました。

ブックをまとめる方のVBAです

A1セルに　ファイルのあるパスを入れておきます
対象はエクセルのファイルにしてあります。
複数のシートの場合も対応します。

Sub Sample1()
Dim buf As String, i As Long
Dim j
buf = Dir(Range("A1").Value & "\*.xls")
Do While buf <> ""
i = i + 1
Workbooks.Open Worksheets(1).Range("A1").Value & "\" & buf
For j = 1 To Worksheets.Count
ThisWorkbook.Worksheets(1).Cells(i + 1, j + 1) = Sheets(j).Name
Worksheets(j).Copy After:=ThisWorkbook.Worksheets(1)
Workbooks(buf).Activate
Next
Worksheets(1).Cells(i + 1, 1) = buf
Workbooks(buf).Close SaveChanges:=False
buf = Dir()
Loop
End Sub

まず、複数のBOOKをひとつにまとめます。

次に、↓このサイトに、複数シートをひとつのシートにまとめるマクロの
サンプルエクセルがダウンロードできますので、
http://www.relief.jp/itnote/archives/001729.php
そのエクセルを起動した状態で、「ツール」「マクロの有効」でマクロを有効にし、マクロを実行すると、シートはまとまります。

また、私自身は使用したことがありませんので、使い勝手等はまったくわかりませんが、複数のブックを1つのブックにまとめたり、1つのブックを、シートごとに別々のブックに分割するフリーソフトが掲載されています。↓
http://www.vector.co.jp/soft/win95/business/se30 …