以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  EXCEL 导入问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84247)
--  作者：大红袍
--  发布时间：2016/4/26 16:32:00
--  
代码没有问题，你excel文件有问题，是不是没有数据啊？
--  作者：大红袍
--  发布时间：2016/4/26 16:48:00
--  
请上传excel文件测试。
--  作者：大红袍
--  发布时间：2016/4/26 16:55:00
--  

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

 

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
--  作者：大红袍
--  发布时间：2016/4/26 16:55:00
--  

最好把excel文件发上来测试。
--  作者：大红袍
--  发布时间：2016/4/26 16:58:00
--  
以下是引用大红袍在2016/4/26 16:55:00的发言：

最好把excel文件发上来测试。
--  作者：大红袍
--  发布时间：2016/4/26 17:05:00
--  
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