excel文件导入实现单文件选择导入现在怎么实现多个excel文件一起导入呢? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter = "Excel文件|*.xls;*.xlsx"
Dim tb4 As WinForm.Table = e.Form.Controls("Table4")
tb4.Table.DataTable.DataRows.Clear
If dlg.ShowDialog =DialogResult.OK Then
    DataTables("案件基本信息").LoadFilter="[_identify] = 0"
    DataTables("案件基本信息").Load
    For Each file As String In dlg.FileNames
        Dim Book As New XLS.Book(file)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim c As Integer

        For i As Integer = 0 To sheet.Cols.Count -1
            If sheet(0,i).text = "部门受案号" Then
                c = i
                Exit For
            End If
        Next

        For n As Integer = 1 To Sheet.Rows.Count -1
            Dim r As Row = tb4.Table.AddNew
            For i As Integer = 0 To sheet.Cols.Count -1
                Dim cname As String = sheet(0, i).text
                If tb4.Table.Cols.Contains(cname) Then
                    r(cname) = sheet(n, i).Text
                ElseIf cname = "移诉意见" Then
                    r("移送意见") = sheet(n, i).Text
                ElseIf cname = "移诉案由" Then
                    r("移送案由") = sheet(n, i).Text
                    r("涉嫌案由") = sheet(n, i).Text
                ElseIf cname = "审结情况" Then
                    r("审结处理结果") = sheet(n, i).Text
                End If
            Next
        Next
    Next
End If

主题：excel文件导入 实现单文件选择导入 现在怎么实现多个excel文件一起导入呢?

主题：excel文件导入实现单文件选择导入现在怎么实现多个excel文件一起导入呢?