Access导出csv 内容添加双引号 vba

要求：导出的csv文件，用文本工具打开时，文字内容需要有双引号，如下："1","name1","name2",""

我之前的处理方式是excel的方式导出，发现很难做到这个效果。所以我换了一种方案，直接将内容处理后写入文件

首先选择保存文件的路径：

    Dim result As String
    With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "Please select the target folder"
        .InitialFileName = "filename.csv"

        If .Show = - Then
            result = .SelectedItems()
        Else
            Exit Function
        End If
    End With
　　If Dir(result , vbNormal) <> "" Then
        Kill result 
    End If

然后处理内容

Dim Obj_DataBase As DAO.Database
    Dim Obj_Recordset As DAO.Recordset
    Dim strLineConts As String
    Set Obj_DataBase = CurrentDb()
    Dim fileNo As Integer
    fileNo = FreeFile()

    strLineConts = ""
    strLineConts = strLineConts & Chr() & "列名1" & Chr() & ","
    strLineConts = strLineConts & Chr() & "列名2" & Chr()
    Print #fileNo, strLineConts
    strSQL = "Select * From 表名 Order By 字段1"

    Set Obj_Recordset = Obj_DataBase.OpenRecordset(strSQL)

    Do While Not Obj_Recordset.EOF
         strLineConts = ""
         strLineConts = strLineConts & Chr() & Obj_Recordset.Fields("值1") & Chr() & ","
         strLineConts = strLineConts & Chr() & Obj_Recordset.Fields("值2") & Chr()
         Print #fileNo, strLineConts
        Obj_Recordset.MoveNext
        i = i +
    Loop
    Close #fileNo
    Set Obj_DataBase = Nothing
    Set Obj_Recordset = Nothing
    Exit Function