标题：Merger用于合并数据

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    Dim ip As New Merger

    ip.SourcePath = dlg.FileName '指定数据文件

    ip.Format = "excel"

    ip.SourceTableName = "工资明细表$" '指定要导入的表

    ip.DataTableName ="职工工资发放明细表" '导入后的表名

    ip.Merge()

MessageBox.Show("数据导入结束!")

End If