看看标红的地方,分别修改测试
Dim mg As New Mergermg.SourcePath = "C:\二类器械.xlsx"mg.Format = "excel" '指定格式mg.SourceTableName = "Sheet1$" '指定要合并的表mg.DataTableName = "二类器械" '指定接收数据的表mg.Merge() '开始合并