试试
……
Dim mg As New Merger
mg.Format = "excel" '指定格式
mg.SourcePath = dlg.FileName
mg.SourceTableName = "sheet1$"
mg.DataTableName = "顺丰数据明细"
mg.Merge()
另外,execl的标题是否和foxtable的列名一致?
一些Excel文件,可能需要在表名后加上符号$才能正常导入,例如:
Dim mg As New Merger
mg.SourcePath = "c:\data\销售管理.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "订单$" '指定要合并的表
mg.DataTableName = "订单" '指定接收数据的表
mg.Merge() '开始合并