整合工作表

Sub 整合()

For i = 1 To 5 Step 1

x = i & ".xls"
ChDir "C:\alex"
Workbooks.Open Filename:="C:\alex\" & x
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Windows("Book1").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

Windows(x).Activate
ActiveWindow.Close

Next
End Sub

註　：　資料由Ａ２儲存格開始　標題列沒有要自行插入
　　　　所有檔案需建立在：Ｃ：＼ＡＬＥＸ　而檔名命名為１。ＸＬＳ　２。ＸＬＳ。。。