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

多个excel相同格式表汇总一个表 提取表里内容和表名

https://zhidao.baidu.com/question/96195372.html

 先合并数据

 

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

 

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

代楼主传个类似文件，虽然我也能处理，但速度太慢，合并数据近35分钟，看用狐表能否快到几分钟

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

 

贴出你写的代码。

采用2楼类似的方式合并，合并的效果是将每个文件的同名工作表接龙式合并，没有用狐表。

方法一：

 

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