试试
Dim mg As New Mergermg.SourcePath = "c:\客户信息.xls"mg.Format = "excel" '指定格式mg.SourceTableName = "sheet1$" '指定要合并的表mg.DataTableName = "客户信息表" '指定接收数据的表mg.Merge() '开始合并
加好友 
发短信
Post By：2017/12/27 9:37:00 [显示全部帖子]
