用Merger即可:
Dim Bm,flt As String
flt = DataTables("物料基础信息表").GetComboListString("物料编号","","物料编号")
flt = "物料编号 In ('" & flt.Replace("|","','") & "')" '物料编号存在于物料基础信息表的
Bm = "要合并Excel的表名" & "$"
Dim mg As New Merger
mg.SourcePath = "D:\Text.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = Bm '指定要合并的表
mg.DataTableName = "产成品入库汇总表" '指定接收数据的表
mg.Filter = flt '指定合并条件
mg.Merge() '开始合
[此贴子已经被作者于2013-2-27 16:06:52编辑过]