如何编写VBScript/Excel宏避免含分号字段转CSV时被拆分

嘿，这个问题我之前也碰到过！核心原因是Excel的xlCSV格式会跟着系统区域设置的列表分隔符走——如果你的系统默认用分号当分隔符，那字段里的分号自然会被当成列分割的标记，而且有时候Excel的自动包裹逻辑会失效，导致列乱掉。

下面给你两个靠谱的解决方案，按需选就行：

方案1：改用自带引号包裹的CSV格式 #

最简单的办法是换用xlCSVUTF8或者xlCSVMSDOS格式来导出，这两种格式默认用逗号作为分隔符，而且会自动把包含分号、逗号、换行的字段用双引号括起来，完美避免拆分问题。修改你的宏代码如下：

Public Sub SaveWorksheetsAsCsv()
    Dim WS As Excel.Worksheet
    Dim SaveToDirectory As String
    Dim CurrentWorkbook As String
    Dim CurrentFormat As Long
    
    CurrentWorkbook = ThisWorkbook.FullName
    CurrentFormat = ThisWorkbook.FileFormat
    SaveToDirectory = "C:\Users\Antonio Robles\Dropbox\Fit_Bit_Samples\Logistics\Logistics\Sample Files\csv_files\"
    
    ' 提前关闭提示，避免重复弹出覆盖确认框
    Application.DisplayAlerts = False
    For Each WS In ThisWorkbook.Worksheets
        ' 用xlCSVUTF8支持Unicode字符，也可以换成xlCSVMSDOS
        WS.SaveAs SaveToDirectory & WS.Name, xlCSVUTF8
    Next
    
    ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat
    Application.DisplayAlerts = True
End Sub

方案2：手动写入CSV（完全自定义格式） #

如果方案1还是不符合你的需求（比如你必须用分号当分隔符），那可以手动遍历单元格，按照CSV规则生成文件，完全控制每个字段的输出：

• 只要字段里有分号、逗号、双引号或者换行，就用双引号把它包起来
• 字段里的双引号要替换成两个双引号（这是CSV的转义规则）

代码示例：

Public Sub SaveWorksheetsAsCsvManual()
    Dim WS As Excel.Worksheet
    Dim SaveToDirectory As String
    Dim FileNum As Integer
    Dim LastRow As Long, LastCol As Integer
    Dim i As Long, j As Integer
    Dim CellValue As String
    
    SaveToDirectory = "C:\Users\Antonio Robles\Dropbox\Fit_Bit_Samples\Logistics\Logistics\Sample Files\csv_files\"
    
    For Each WS In ThisWorkbook.Worksheets
        FileNum = FreeFile()
        ' 打开要写入的CSV文件
        Open SaveToDirectory & WS.Name & ".csv" For Output As #FileNum
        
        ' 获取工作表的最后一行和最后一列
        LastRow = WS.Cells(Rows.Count, 1).End(xlUp).Row
        LastCol = WS.Cells(1, Columns.Count).End(xlToLeft).Column
        
        ' 逐行写入
        For i = 1 To LastRow
            Dim LineContent As String
            LineContent = ""
            ' 逐列处理单元格
            For j = 1 To LastCol
                CellValue = WS.Cells(i, j).Value
                ' 判断是否需要用引号包裹
                If InStr(CellValue, ";") > 0 Or InStr(CellValue, ",") > 0 Or _
                   InStr(CellValue, """") > 0 Or InStr(CellValue, vbCrLf) > 0 Then
                    ' 转义双引号：把单个"换成""
                    CellValue = Replace(CellValue, """", """""")
                    ' 用双引号包裹内容
                    CellValue = """" & CellValue & """"
                End If
                ' 拼接列内容，这里用逗号当分隔符，如果需要分号就换成";"
                LineContent = LineContent & IIf(j = 1, "", ",") & CellValue
            Next j
            ' 写入当前行
            Print #FileNum, LineContent
        Next i
        
        ' 关闭文件
        Close #FileNum
    Next WS
End Sub

小提示 #

• 方案1适合绝大多数场景，操作简单，用Excel内置的逻辑就能解决问题，还支持Unicode字符
• 方案2适合需要自定义分隔符或者完全控制输出格式的情况，比如你必须保留分号作为分隔符，只需要把代码里的逗号换成";"就行

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