参考:
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