对于一些新手，在写导入数据代码时，总会出现数据类型和格式没有正确指定而导致无法导入，这里写一个通用函数分享给大家，可以一次选择多个文件，函数代码：

 

Dim ft As String = "Access|Access2007|Excel|Excel2007|dBASE|Delimited" \'据库格式

Dim hzm As String = "mdb|accdb|xls|xlsx|dbf|CDF" \'文件后缀名格式，一定要与第一行的数据库格式对应。
Dim Values() As String
Values = hzm.split("|")
Dim dlg As New OpenFileDialog
dlg.Filter= "Access文件|*.mdb;*.accdb|Excel文件|*.xls;*.xlsx|dBASE文件|*.dbf|Delimited文件|*.CDF"
dlg.Title = "选择文件"
dlg.MultiSelect = True \'允许一次性选择多个文件
If dlg.ShowDialog = DialogResult.OK Then
    Dim n As Integer
    For Each fl As String In dlg.FileNames
        For n = 0 To Values.Length - 1
            If fl.split(".")(1) = Values(n)
                Exit For
            End If
        Next
        Dim ip As New Importer
        ip.SourcePath = fl \'指定数据文件
        ip.SourceTableName = Args(0) \'指定要导入的表
        ip.NewTableName = Args(0) \'导入后的表名
        ip.Format = ft.split("|")(n) \'指定导入格式
        ip.Import()
    Next
End If

 

函数调用：Functions.Execute("数据导入","要导入的数据表名称") \'这里必须指定要导入的表名称

 

请回复后下载调试文件！