主题：自定义函数应用之——通用数据导入

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

 

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("数据导入","要导入的数据表名称") '这里必须指定要导入的表名称

 

请回复后下载调试文件！