Dim mg As New Mergermg.SourcePath = "H:\法克管理系统\farker并联电容器工艺卡.xls"mg.Format = "excel" '指定格式mg.SourceTableName = "三相$" '指定要合并的表mg.DataTableName = "表C" '指定接收数据的表mg.Merge() '开始合并