http://www.foxtable.com/help/topics/0685.htm示例八
下面是一个批量合并的例子,假定目录c:\data下有多个Excel文件,这些文件都有一个名为订单的表,需要将这些表中的数据批量并到Foxtable的订单表中:
For
Each fl As
String
In FileSys.GetFiles("c:\Data")
Dim mg As New Merger
mg.SourcePath = fl
mg.Format = "excel"
'指定格式
mg.SourceTableName = "订单"
'指定要合并的表
mg.DataTableName =
"订单"
'指定接收数据的表
mg.Merge()
'开始合并
Next