主题：[求助]用对话框的方式批量导入可以实现吗？

 不可能出错

批量导入第一个不会出错，（无论哪个文件在第一个）后面的会连续出错

 

你做个例子发上，我测试不会报错

上了个例子，老师看看

 没看到你上传什么

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建 winrar 压缩文件.rar

 看了一下，你这种表格不行，你的表格写有vba代码，可能之间有冲突。你要把对应的宏删除。

删除后会正常吗？

  抱歉，我写错了。

 

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim book As new XLS.Book(fl)
        For Each sheet As XLS.Sheet In book.Sheets
            Dim ip As New Importer
            ip.SourcePath = fl
            ip.Format = "excel"
            ip.SourceTableName = sheet.Name & "$"
            ip.NewTableName = sheet.Name & Rand.Next(10000)
            ip.Import()
        Next
    Next
End If