主题：窗口内导入按钮出错

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger

    mg.Format = "Excel"
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "组织架构及负责人$"
    mg.DataTableName = "组织架构及负责人"
    mg.Merge()
End If

你那个excel文件里面的sheet名字叫什么？

那就写成

 

mg.SourceTableName = "sheet1$"

看6楼。