名称后面加个$看看。
Dim mg As New Mergermg.SourcePath = "F:\产品价目表.xls"mg.Format = "excel" '指定格式mg.SourceTableName = "产品价目表$" '指定要合并的表mg.DataTableName = "产品价目表" '指定接收数据的表mg.Merge()