EXCEL导入问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" '设置筛选器
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    DataTables("dkye").StopRedraw
    Dim App As New MSExcel.Application
    try
        app.DisplayAlerts = False
        For Each f As String In dlg.FileNames
            Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(f)
            Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
            Dim Rg As MSExcel.Range = Ws.UsedRange
            app.Selection.Replace(What:="    - -", Replacement:="", LookAt:=2,SearchOrder:=1, MatchCase:=False, SearchFormat:=False,ReplaceFormat:=False)
            Dim ary = rg.value
            For n As Integer = 5 To rg.Rows.Count - 1
                Dim ro As Row = Tables("dkye").AddNew
                For i As Integer = 0 To Tables("dkye").Cols.Count - 6
                    ro(i) = ary(n,i+1)
                Next
            Next
        Next
        MessageBox.Show("导入成功!","恭喜!")
    catch ex As exception
        msgbox(ex.message)
        MessageBox.Show("导入失败!","恭喜!")
    finally
        DataTables("dkye").ResumeRedraw
        app.quit
    End try
End If

主题：EXCEL导入问题