以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  批量合并  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193121)

--  作者:syttdx
--  发布时间:2024/8/19 13:52:00
--  批量合并
各位专家好,我是新手,我想把一个文件夹下所有格式相同的excel日报,快速合并到一个表,怎么实现,谢谢!
[此贴子已经被作者于2024/8/19 13:53:01编辑过]

--  作者:有点蓝
--  发布时间:2024/8/19 14:12:00
--  
参考:http://www.foxtable.com/webhelp/topics/0341.htmhttp://www.foxtable.com/webhelp/topics/0685.htm


For Each File As String In FileSys.GetFiles("C:\\xxx文件夹")
   
Dim mg As New Merger
mg
.SourcePath = File 
mg
.Format = "excel" \'指定格式
mg
.SourceTableName = "订单" \'指定要合并的表
mg
.DataTableName = "订单" \'指定接收数据的表
mg
.Merge() \'开始合并
Next