VBA导出CSV文件时为每个字段添加双引号的代码修改方法

Excel自带的xlCSVUTF8另存逻辑仅会为包含逗号、换行、内嵌双引号的字段自动添加双引号，无法实现全字段强制包裹的要求，因此需要替换原有直接调用SaveAs的逻辑，改为手动遍历单元格拼接标准CSV内容后写入文件，调整后的代码完全保留原有文件命名、输出路径、UTF-8编码的特性：

Public Sub ExportWorksheetAndSaveAsCSV()
    Dim fn As String, outputPath As String
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim ws As Worksheet
    Dim cellVal As String
    Dim lineText As String
    Dim stream As Object
    
    ' 初始化UTF-8写入流
    Set stream = CreateObject("ADODB.Stream")
    stream.Charset = "UTF-8"
    stream.Open
    
    ' 生成带时间戳的输出文件路径
    fn = "_" & Format(Now, "yyyymmddhhmmss")
    outputPath = "C:\TMU-Export\TMU_Sales" & fn & ".csv"
    
    ' 绑定Data工作表，获取实际使用范围边界
    Set ws = ThisWorkbook.Worksheets("Data")
    lastRow = ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1
    lastCol = ws.UsedRange.Column + ws.UsedRange.Columns.Count - 1
    
    ' 逐行逐单元格拼接CSV内容
    For i = ws.UsedRange.Row To lastRow
        lineText = ""
        For j = ws.UsedRange.Column To lastCol
            ' 转义字段内的原生双引号为两个双引号，符合CSV格式规范
            cellVal = Replace(CStr(ws.Cells(i, j).Value), """", """""")
            ' 给当前字段包裹双引号
            cellVal = """" & cellVal & """"
            ' 拼接字段，用逗号分隔
            If j = ws.UsedRange.Column Then
                lineText = cellVal
            Else
                lineText = lineText & "," & cellVal
            End If
        Next j
        ' 写入一行内容，加换行符
        stream.WriteText lineText, 1
    Next i
    
    ' 保存文件并释放资源
    stream.SaveToFile outputPath, 2
    stream.Close
    Set stream = Nothing
    
    MsgBox "导出完成，文件保存至：" & vbCrLf & outputPath, vbInformation
End Sub

实现说明 #

• 所有字段无论内容类型、是否包含特殊字符，都会被双引号包裹
• 自动处理字段内嵌双引号的转义规则：单元格内容中原有的双引号会被替换为连续两个双引号，完全符合RFC 4180 CSV标准
• 保留原代码的UTF-8编码输出能力，不会出现中文等非ASCII字符乱码问题
• 无需临时复制工作表、关闭保存提示，导出效率高于原生SaveAs方法
• 输出文件命名规则、存储路径和原代码完全一致，不需要修改原有业务路径配置

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