各位专家好,我是新手,我想把一个文件夹下所有格式相同的excel日报,快速合并到一个表,怎么实现,谢谢!
[此贴子已经被作者于2024/8/19 13:53:01编辑过]
参考:
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