以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  多个excel相同格式表汇总一个表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109209)
--  作者：zhuangli515
--  发布时间：2017/11/7 8:47:00
--  多个excel相同格式表汇总一个表
多个excel相同格式表汇总一个表 提取表里内容和表名
--  作者：abcdzabcdz
--  发布时间：2017/11/7 9:13:00
--  
https://zhidao.baidu.com/question/96195372.html
--  作者：有点甜
--  发布时间：2017/11/7 10:01:00
--  

 先合并数据

 

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

 

 具体问题，做个foxtable例子发上来。
--  作者：abcdzabcdz
--  发布时间：2017/11/7 11:15:00
--  
代楼主传个类似文件，虽然我也能处理，但速度太慢，合并数据近35分钟，看用狐表能否快到几分钟
https://pan.baidu.com/s/1o8khUEA
--  作者：有点甜
--  发布时间：2017/11/7 12:56:00
--  

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

 

贴出你写的代码。
--  作者：abcdzabcdz
--  发布时间：2017/11/7 20:58:00
--  
采用2楼类似的方式合并，合并的效果是将每个文件的同名工作表接龙式合并，没有用狐表。
--  作者：有点甜
--  发布时间：2017/11/8 8:57:00
--  

方法一：

 

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