如何在VBA中使用xlCSV导出CSV时避免Excel自动转义引号

Excel的xlCSV格式遵循CSV标准，会自动将字段内的双引号转义为两个双引号（" → ""），同时给包含逗号/引号的字段包裹双引号，这是内置行为，无法通过SaveAs的参数直接关闭。针对你的需求，提供两种高效方案：

方案一：直接用VBA生成自定义格式的CSV（高效数组版） #

利用数组批量读取数据，跳过Excel的CSV自动处理逻辑，直接按你需要的格式写入文件，处理大量工作表时速度远快于逐单元格循环。

修改你的代码如下：

Sub ExportCSV(outputSheet As String, path As String)
    Dim sourcews As Worksheet
    Dim data As Variant
    Dim i As Long, j As Long
    Dim fileNum As Integer
    Dim lineText As String
    
    ' 指定源工作表
    Set sourcews = ThisWorkbook.Worksheets(outputSheet)
    ' 批量读取数据到数组（高效）
    data = sourcews.UsedRange.Value
    
    ' 打开目标文件准备写入
    fileNum = FreeFile()
    Open path For Output As #fileNum
    
    ' 遍历数组生成每行内容
    For i = LBound(data, 1) To UBound(data, 1)
        lineText = ""
        For j = LBound(data, 2) To UBound(data, 2)
            ' 直接保留单元格原始内容，不做引号转义
            lineText = lineText & data(i, j)
            ' 添加逗号分隔（最后一列不加）
            If j < UBound(data, 2) Then lineText = lineText & ","
        Next j
        ' 写入当前行
        Print #fileNum, lineText
    Next i
    
    ' 关闭文件
    Close #fileNum
End Sub

注意：如果单元格内容包含逗号，这种方式会破坏CSV的字段分隔逻辑。若数据中有逗号但仍需保留引号格式，可以在拼接时给包含引号/逗号的字段手动包裹单引号，或根据实际需求调整字段包裹规则。

方案二：导出后修正CSV文件 #

先用xlCSV格式导出，再批量修正文件中的转义引号，适合不想大幅修改原有导出逻辑的场景：

Sub ExportAndFixCSV(outputSheet As String, path As String)
    Dim sourcews As Worksheet
    Dim tempPath As String
    Dim fileNum As Integer
    Dim lineText As String
    Dim fields() As String
    Dim fixedLine As String
    Dim i As Integer
    
    Set sourcews = ThisWorkbook.Worksheets(outputSheet)
    ' 临时文件路径
    tempPath = Environ("TEMP") & "\temp_csv_export.csv"
    
    ' 先按xlCSV格式导出到临时文件
    sourcews.Copy
    With ActiveWorkbook
        .SaveAs Filename:=tempPath, FileFormat:=xlCSV
        .Close SaveChanges:=False
    End With
    
    ' 打开临时文件和目标文件
    fileNum = FreeFile()
    Open tempPath For Input As #fileNum
    Open path For Output As #(fileNum + 1)
    
    ' 逐行处理修正引号
    Do Until EOF(fileNum)
        Line Input #fileNum, lineText
        fixedLine = ""
        ' 拆分被引号包裹的字段
        fields = Split(lineText, """,""")
        
        ' 移除首尾字段的包裹引号
        fields(0) = Replace(fields(0), """", "")
        fields(UBound(fields)) = Replace(fields(UBound(fields)), """", "")
        
        ' 将转义的双引号还原为单个引号
        For i = LBound(fields) To UBound(fields)
            fields(i) = Replace(fields(i), """""", """")
        Next i
        
        ' 拼接成修正后的行并写入
        fixedLine = Join(fields, ",")
        Print #(fileNum + 1), fixedLine
    Loop
    
    ' 关闭文件并删除临时文件
    Close #fileNum
    Close #(fileNum + 1)
    Kill tempPath
End Sub

这个方案既能利用Excel的导出逻辑处理基础格式，又能修正引号转义问题，适合数据中包含逗号的场景。

内容的提问来源于stack exchange，提问作者HHHHH