Dim mg As New Merger
mg.SourcePath = "F:\项目录入.xlsx"
mg.Format = "Excel" '指定格式
mg.SourceTableName = "项目录入$" '指定要合并的表
mg.DataTableName = "项目录入表" '指定接收数据的表
mg.Merge() '开始合并
Dim mg As New Merger
mg.SourcePath = "F:\项目录入.xlsx"
mg.Format = "Excel" '指定格式
mg.SourceTableName = "sheet1" '指定要合并的表
mg.DataTableName = "项目录入表" '指定接收数据的表
mg.Merge() '开始合并
Dim mg As New Merger
mg.SourcePath = "F:\项目录入.xlsx"
mg.Format = "Excel" '指定格式
mg.SourceTableName = "sheet1$" '指定要合并的表
mg.DataTableName = "项目录入表" '指定接收数据的表
mg.Merge() '开始合并