如何在VBA中修改CSV导出分隔符且不更改区域设置？

你的需求很明确：要导出分号分隔的CSV，不能改动系统区域设置，还要正确处理包含逗号的单元格。原代码使用xlCSV格式保存会依赖系统的列表分隔符（不同电脑可能不同），所以不可靠。下面是直接写入文本文件的方案，完全控制分隔符和CSV规范转义：

Sub ExportToCSV()
    'Variables--------------------------------------------------------------
    Dim CSVFileName As String
    Dim WsData As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim cellContent As String
    Dim csvLine As String
    Dim fileNum As Integer
    
    Set WsData = Worksheets("Database")
    '-----------------------------------------------------------------------
    
    ' 获取数据区域的最后一行（对应原代码中第2列的底部）
    lastRow = WsData.Cells(WsData.Rows.Count, 2).End(xlUp).Row
    lastCol = 9 ' 原数据范围是第2列到第9列
    
    ' 构建CSV文件名
    CSVFileName = ThisWorkbook.Path & "\" & "Database_" & VBA.Format(VBA.Now, "dd-mm-yy") & ".csv"
    
    ' 获取可用文件号，避免冲突
    fileNum = FreeFile()
    
    ' 打开文件准备写入（覆盖已有文件）
    Open CSVFileName For Output As #fileNum
    
    ' 写入表头（第7行，转小写）
    csvLine = ""
    For j = 2 To lastCol
        cellContent = LCase(WsData.Cells(7, j).Text)
        ' 按照CSV规范转义：含逗号、分号、双引号、换行的内容用双引号包裹
        If InStr(1, cellContent, ",") > 0 Or InStr(1, cellContent, ";") > 0 Or _
           InStr(1, cellContent, """") > 0 Or InStr(1, cellContent, vbCrLf) > 0 Then
            cellContent = """" & Replace(cellContent, """", """""") & """"
        End If
        csvLine = csvLine & IIf(csvLine = "", "", ";") & cellContent
    Next j
    Print #fileNum, csvLine
    
    ' 写入数据行（第8行到最后一行）
    For i = 8 To lastRow
        csvLine = ""
        For j = 2 To lastCol
            cellContent = WsData.Cells(i, j).Text
            ' 同样应用CSV转义规则
            If InStr(1, cellContent, ",") > 0 Or InStr(1, cellContent, ";") > 0 Or _
               InStr(1, cellContent, """") > 0 Or InStr(1, cellContent, vbCrLf) > 0 Then
                cellContent = """" & Replace(cellContent, """", """""") & """"
            End If
            csvLine = csvLine & IIf(csvLine = "", "", ";") & cellContent
        Next j
        Print #fileNum, csvLine
    Next i
    
    ' 关闭文件
    Close #fileNum
    
    MsgBox "CSV导出完成，路径：" & CSVFileName, vbInformation
End Sub

关键改动说明 #

• 完全控制分隔符：绕过Excel的SaveAs机制，直接用分号;拼接每行内容，不受系统区域设置影响。
• CSV规范兼容：自动检测并转义特殊内容：
  • 如果单元格包含逗号、分号、双引号或换行，就用双引号包裹内容
  • 内容中的双引号会替换成两个双引号（CSV标准转义规则），避免解析错误
• 高效无冗余：不需要创建新工作簿，直接读取原工作表数据，性能更优。
• 精准匹配原范围：和你原代码的导出范围完全一致（第7行表头，第8行到第2列底部的数据，列2到9）。

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