以文本方式查看主题 - 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.htm、http://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 |