主题：EXCEL 导入问题

代码没有问题，你excel文件有问题，是不是没有数据啊？

请上传excel文件测试。

 那试试这样，先把表生成，然后再合并数据。

 

Dim dlg As New OpenFileDialog
'dlg.Filter = "Access文件|*.mdb|*.xls"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim ip As New Importer
        ip.SourcePath = dlg.FileName '指定数据文件
        MessageBox.Show(dlg.FileName)
        ip.SourceTableName = "本科海选表$" '指定要导入的表
        ip.NewTableName ="本科海选表临时" '导入后的表名
        ip.Format = "Excel" '指定导入格式
        ip.Filter = "1=2"
        ip.Import()
    Next
End If

最好把excel文件发上来测试。

Dim dlg As New OpenFileDialog
'dlg.Filter = "Access文件|*.mdb|*.xls"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim ip As New Importer
        ip.SourcePath = dlg.FileName '指定数据文件
        MessageBox.Show(dlg.FileName)
        ip.SourceTableName = "本科海选表$" '指定要导入的表
        ip.NewTableName ="本科海选表临时" '导入后的表名
        ip.Format = "Excel" '指定导入格式
        ip.Filter = "1=2"
        ip.Import()
       
        Dim mg As New Merger
        mg.SourcePath = dlg.FileName
        mg.Format = "excel" '指定格式
        mg.SourceTableName = "本科海选表$" '指定要合并的表
        mg.DataTableName = "本科海选表临时" '指定接收数据的表
        mg.Merge() '开始合并
    Next
End If