如何避免Excel宏导出CSV时添加引号及解决分号分隔问题？

方法1：直接用VBA生成纯文本CSV文件（最可靠） #

绕过Excel自带的CSV导出逻辑，直接按要求格式写入文本文件，完全控制输出内容，不受区域设置和单元格格式影响：

Sub ExportCoordinatesToCSV()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim filePath As String
    Dim fileNum As Integer
    Dim lineText As String
    
    ' 指定要导出的工作表
    Set ws = ThisWorkbook.Worksheets("你的工作表名称")
    ' 获取数据最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 设置CSV保存路径（自行修改）
    filePath = "C:\目标路径\coordinates.csv"
    
    ' 打开文件准备写入
    fileNum = FreeFile()
    Open filePath For Output As #fileNum
    
    ' 遍历每行数据（若有表头，将i的起始值改为2）
    For i = 1 To lastRow
        ' 按xx.xx,yy.yy,zz.zz格式拼接坐标
        lineText = ws.Cells(i, 1).Value & "," & ws.Cells(i, 2).Value & "," & ws.Cells(i, 3).Value
        ' 写入一行内容
        Print #fileNum, lineText
    Next i
    
    ' 关闭文件
    Close #fileNum
    MsgBox "CSV导出完成！"
End Sub

使用时替换代码中的工作表名称和保存路径即可，导出的文件完全符合目标程序要求，无额外引号或分号。

方法2：强制Excel用逗号分隔导出，避免文本引号 #

通过临时修改Excel的列表分隔符，绕过系统区域设置限制，同时确保单元格为数值格式：

1. 先将x、y、z三列的单元格格式设置为数值（保留对应小数位数），避免被识别为文本；
2. 运行以下VBA代码：

Sub ExportWithCommaSeparator()
    Dim ws As Worksheet
    Dim savePath As String
    Dim originalSeparator As String
    
    Set ws = ThisWorkbook.Worksheets("你的工作表名称")
    savePath = "C:\目标路径\coordinates.csv"
    
    ' 临时替换列表分隔符为逗号
    originalSeparator = Application.International(xlListSeparator)
    Application.International(xlListSeparator) = ","
    
    ' 导出为CSV格式
    ws.SaveAs Filename:=savePath, FileFormat:=xlCSV
    
    ' 恢复原始区域设置的分隔符
    Application.International(xlListSeparator) = originalSeparator
    
    MsgBox "CSV导出完成！"
End Sub

方法3：用Power Query导出 #

无需代码，通过可视化操作实现：

• 选中坐标数据，点击数据选项卡 → 从表格/区域（无表头则取消勾选“我的表格有标题”）；
• 在Power Query编辑器中确认数据为数值类型，点击主页 → 关闭并上载至 → 选择“仅创建连接”；
• 右键点击Power Query连接 → 导出到CSV，在导出窗口点击工具 → 常规选项，将分隔符改为逗号，确认后保存。

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