主题：[求助]关于导入Excel表格

如果不是副本表,或者SQLTable   那么应该直接用绑定的表名

表是副本的，类型为Normal

把项目打包上传上来

用下面的代码，红色地方改一下

 

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim mg As New Merger
       mg.Format = "excel" '指定格式
        mg.SourcePath = fl
        mg.SourceTableName = "excel表格sheet1$"
        mg.DataTableName = "员工档案表"
        mg.Merge()
    Next
End If

既然要做成openfiledialog形式的，那数据导入表的名称就是不确定的啊，那红色字体部分应该填什么？

 

不确定怎么导入？是excel的第一张表么？

 如下代码

 

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim book As new XLS.Book(fl)
        Dim mg As New Merger
        mg.Format = "excel" '指定格式
        mg.SourcePath = fl
        mg.SourceTableName = book.Sheets(0).name & "$"
        mg.DataTableName = "员工档案表"
        mg.Merge()
    Next
End If