主题：多个excel相同格式表汇总一个表

 先合并数据

http://www.foxtable.com/webhelp/scr/0187.htm

 具体问题，做个foxtable例子发上来。

回复4楼，你用什么方法合并？你要合并成什么效果？

贴出你写的代码。

方法一：

http://www.foxtable.com/webhelp/scr/2492.htm

方法二：sheet1、sheet2拷贝到sheet3中去

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("sheet3")

Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
'ws3.Cells(1,Ws1.UsedRange.Columns.Count).Select '横向拷贝
ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select '纵向拷贝
ws3.paste

'Wb.Save
app.Visible = True
'App.Quit