excel
打开一个新
excel文件，把所有要合并的表格文件名填到A列里，然后把下面这段
VBA代码复制进去。保存成
excel.xls格式，再运行一下代码就行。代码如下：Sub xlscopy()Application.ScreenUpdating = False'Arr数组由所有
excel文件名组成arr = For i = 1 To UBound(arr) Workbooks.Open 文件夹路径 & arr(i, 1) Workbooks(arr(i)(1)).Activate For j = 1 To ActiveWorkbook.Sheets.Count Sheets(j).Copy After:=Workbooks(
excel.xls).Sheets(Workbooks(
excel.xls).Sheets.Count) Next Workbooks(arr(i, 1)).Close FalseNextEnd Sub
