向access中批量导入csv文件，有例子，求修改

佚_名

我手里有一个例子是把多个csv文件导入一张表里，想请教一下不同的csv文件导入不同的表怎么做，表名是以csv文件的名字命名，不加后缀，字段名为csv第一行，求修改！！！以下是主代码：
1-14012Q53209.rar (438.92 KB, 下载次数: 40)

2016-3-12 19:45 上传

点击文件名下载附件
例子

1. Option Compare Database
   
2. Public conn As New ADODB.Connection          'ADO
   
3. Public rs As New ADODB.Recordset
   
4. Public rs1 As New ADODB.Recordset
   
5. Public Function ReadCSVFile(ByVal strFilePath As String, ByVal strFileName As String)
   
6.     Dim i As Integer
   
7.     '===============================================================================
   
8.     '-函数名称:         ReadCSVFile
   
9.     '-功能描述:         导入csv文件
   
10.     '-输入参数说明:     参数1:strFilePath As String 目标路径
    
11.     '                   参数2:strFileName As String 文件名称
    
12.     '-使用语法示例:     ReadCSVFile("路径","文件名")
    
13.     '===============================================================================
    
14. 
    
15.     conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
    
16.               "DBQ=" & strFilePath & ";Extensions=asc,csv,tab,txt;Persist Security Info=False"   '打开数据链接关键
    
17.     With rs
    
18.         .CursorType = 2
    
19.         .LockType = 3
    
20.         .CursorLocation = 3
    
21.         .ActiveConnection = conn
    
22.     End With
    
23. 
    
24.     Set conn = CurrentProject.Connection
    
25. 
    
26.     sqlcsv = "SELECT * FROM [" & strFileName & "]"
    
27.     rs.Open sqlcsv
    
28.     rs.Move (0)         '移动到指定记录
    
29. 
    
30.     sql = "Select * From tbl_Export"
    
31.     rs1.Open sql, conn, 1, 3
    
32. 
    
33.     Do Until rs.EOF
    
34.         rs1.AddNew
    
35.         For i = 0 To 7
    
36.             rs1(i + 1) = rs(i)
    
37.         Next
    
38.         rs.MoveNext
    
39.     Loop
    
40. 
    
41.     rs1.UpdateBatch
    
42.     rs1.Close
    
43.     rs.Close
    
44.     conn.Close
    
45.     Set rs = Nothing
    
46.     Set rs1 = Nothing
    
47.     Set conn = Nothing
    
48. End Function

复制代码

roych

引用scripting runtime，用fso遍历文件夹，然后call这个函数：ReadCSVFile

dim fso as new filesystemobject
dim fl as file
for each fl in fso.getfolder("C:\xxx\kk").files
    call ReadCSVFile("C:\xxx\kk",fl.name)
next
大体是这样。不过没测试。如果出错，可能是fl.name不对，则需要使用instr截掉扩展名。