access利用vba读取csv文件

access在导出csv文件时,可能会对非空的字符型内容,默认添加双引号("),所以直接用execl打开时看不到,而在读取后,用来比较等,就会出错.

 

'tblName 要处理的表名
'FileFullPath 选择的csv文件
Private Function ImportFile(ByVal tblName As String, FileFullPath As String, _
    Optional FieldDelimiter As String = ",", _
    Optional RecordDelimiter As String = vbCrLf) As Boolean
    On Error GoTo BACKERR:

    Dim objDB As DAO.Workspace
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim iFileNum As Integer
    Dim sFileContents As String         ' csv文件数据
    Dim sTableSplit() As String         ' csv以行为单位的数据组
    Dim sRecordSplit() As String        ' csv每行内以(,)分隔开后的数据组
    Dim lCtr As Integer
    Dim iCtr As Integer
    Dim lRecordCount As Long            ' csv文件内的行数
    Dim tmp As String
    ' csv文件数据的取得
    iFileNum = FreeFile
    Open FileFullPath For Binary As #iFileNum
    sFileContents = Space(LOF(iFileNum))
    Get #iFileNum, , sFileContents
    Close #iFileNum
    sTableSplit = Split(sFileContents, RecordDelimiter)
    ' 每行数据的项目数取得
    lRecordCount = UBound(sTableSplit)
    ' 对应项目名取得
    sRecordFields = Split(sTableSplit(0), FieldDelimiter)

    Set objDB = DBEngine.Workspaces(0)
    Set db = CurrentDb

    objDB.BeginTrans
    For lCtr = 1 To lRecordCount - 1
        ' 每一行的数据取得
        tmp = Replace(CStr(sTableSplit(lCtr)), Chr(34), "")
       ' 去除双引号(")
        sRecordSplit = Split(tmp, FieldDelimiter)

        Set rs = db.OpenRecordset("A", dbOpenDynaset)
        rs.FindFirst "ID= '1-" & sRecordSplit(12) & "-" & sRecordSplit(13) & "'"

        If rs.NoMatch = False Then
            rs.Edit
            rs!modified = Now
            rs!modifieduser = Comm.getUserId
            rs.Update
        End If
    Next lCtr

   objDB.CommitTrans

   rs.Close
   db.Close
   objDB.Close
   Set rs = Nothing
   Set db = Nothing
   Set objDB = Nothing
   ImportFile = True
   Exit Function
BACKERR:
   objDB.Rollback
   rs.Close
   db.Close
   objDB.Close
   Set rs = Nothing
   Set db = Nothing
   Set objDB = Nothing
   ImportFile = False

    'MsgBox Err.Number & "->" & Err.Description
End Function