如何批量导入CSV文件到ACCESS

8868

手中有成千上万个CSV格式的文件,如果通过手工方式导入到ACCESS中,势必要花很多时间.有没有谁知道可以批量导入CSV文件到ACCESS的代码?或者有没有谁知道将CSV文件批量转换成XLS文件的代码?(转换成XLS后就可以批量导入到ACCESS中了)

Grant

Public Function ReadCSVFile(ByVal strFilePath As String, ByVal strFileName As String)
Dim I As Integer
Dim intCount As Long

'打开数据链接关键
conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
          "DBQ=" & strFilePath & ";Extensions=asc,csv,tab,txtersist Security Info=False"

With rs
    .CursorType = 2
    .LockType = 3
    .CursorLocation = 3
    .ActiveConnection = conn
End With

SQLcsv = "SELECT * FROM [" & strFileName & "]"
rs.Open SQLcsv
rs.Move (1)          '移动到指定记录
intCount = DCount("[ship]", "info", "[ship]='" & rs(16) & "'")      '获取表中记录重复数
If intCount > 1 Then  '进行判断

    Response = MsgBox("是否要覆盖原有［" & rs(16) & "］,点是将更新所有［" & rs(16) & "］数据?", 4 + 32 + 256, "系统提示")
    If Response = vbNo Then   ' 当用户按下“否”。
       rs.Close
        conn.Close
         Set rs = Nothing
           Set conn = Nothing
                  Exit Function
    End If
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * from info where ship='" & rs(16) & "'"           '删除重复数据
    DoCmd.SetWarnings True
  End If
      Set conn1 = CurrentProject.Connection
    sql = "Select * From info "
    rs1.Open sql, conn1, 1, 3
Do Until rs.EOF   '循环更新数据表

   
    rs1.AddNew
    For I = 0 To 26
     rs1(I) = rs(I)
    Next
     
rs.MoveNext
Loop

rs1.UpdateBatch
rs1.Close
conn1.Close
Set rs1 = Nothing
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Function

自写的函数,楼主更改一下便可以批量导入csv文件了

Henry D. Sy

刚刚出炉的，楼主趁热吃吧！

8868

版主的函数是不是将CSV文件导入到ACCESS后都自成一个表呢?我的意思是将现有的所有CSV文件的数据都导入到ACCESS的一个表中,然后再对表进行相关的数据操作.麻烦版主帮忙!

Grant

同理的,我只是把它函数化而已

Victor_Duane

GG,这个函数写成两个函数,是不是条理更加清晰一点也好理解一点啊

8868

那么这个函数在窗体的控件中怎么调用呢?我很菜的,谢谢版主帮忙!

Grant

请上传你的示例说明文件我给你改改吧.这样也方便别人使用,现在这个函数只是我给一网友临时写的而已.

8868

我做了一个示例,请版主帮忙填入代码,谢谢了!

goto2008

CSV格式是啥东东？