试试
Dim mg As New Mergermg.SourcePath = "d:\快运单.xls"mg.Format = "excel" '指定格式mg.SourceTableName = "sheet1$" '指定要合并的表mg.DataTableName = "快运单" '指定接收数据的表mg.Merge()
或者
Dim mg As New Mergermg.SourcePath = "d:\快运单.xlsx"mg.Format = "excel" '指定格式mg.SourceTableName = "sheet1$" '指定要合并的表mg.DataTableName = "快运单" '指定接收数据的表mg.Merge()
加好友 
发短信
Post By：2018/1/3 23:06:00 [显示全部帖子]
