VBA通过ADODB.Stream导出UTF-8 CSV时如何自定义列分隔符

列分隔符自定义实现逻辑 #

• 你当前的导出流程是手动拼接字符串、通过ADODB.Stream写入文件的，没有调用Excel自带的导出接口，因此原拼接逻辑中写死的逗号就是当前使用的列分隔符，可以直接替换为任意指定字符，不存在旧版本Excel的兼容性限制。
• 常见的可选分隔符包括分号;、制表符vbTab、竖线|，替换时不需要修改ADODB.Stream的相关配置，只需要调整字符串拼接时的分隔符即可。

列结构错乱的根治方法 #

哪怕更换了分隔符，如果单元格内容中包含选定的分隔符、半角双引号、换行/回车字符，仍然会出现列识别错乱。按照标准CSV格式的要求，需要对单元格内容做统一转义处理，规则如下：

• 只要单元格内容包含上述任意特殊字符，就必须将整个单元格内容用半角双引号包裹，避免内部的特殊字符被识别为结构标记。
• 内容中原本存在的半角双引号，需要替换为连续两个半角双引号做转义，避免和包裹用的双引号产生冲突。
• 对单元格中的错误值（如#N/A、#DIV/0!）做兼容处理，避免拼接时触发类型不匹配报错。

优化后的可直接使用的代码 #

' 单元格内容转义处理，符合标准CSV格式
Private Function EscapeCellContent(cellVal As Variant, delimiter As String) As String
    Dim content As String
    ' 兼容错误值、空单元格的转换
    If IsError(cellVal) Then
        content = CStr(cellVal)
    ElseIf IsEmpty(cellVal) Then
        content = ""
    Else
        content = CStr(cellVal)
    End If
    ' 判断是否需要加引号包裹
    If InStr(content, delimiter) > 0 Or InStr(content, """") > 0 Or InStr(content, vbCr) > 0 Or InStr(content, vbLf) > 0 Then
        EscapeCellContent = """" & Replace(content, """", """""") & """"
    Else
        EscapeCellContent = content
    End If
End Function

Sub CreateCSVinUTF8(wS As Worksheet, FilePath As String)
' 修改以下常量即可更换列分隔符，例如：换分号写为 Const DELIMITER As String = ";"，换制表符写为 Const DELIMITER As String = vbTab
Const DELIMITER As String = ","
Const adCrLf As Long = -1
Const adModeUnknown As Long = 0
Const adSaveCreateOverWrite As Long = 2
Const adTypeText As Long = 2

Dim Text        As String
Dim vaInput()   As Variant
Dim Y As Long
Dim X As Integer

' 读取工作表已用区域内容
vaInput = wS.UsedRange

' 逐行逐列拼接内容，自动完成转义
For Y = 1 To UBound(vaInput, 1)
    For X = 1 To UBound(vaInput, 2)
        Text = Text & EscapeCellContent(vaInput(Y, X), DELIMITER) & DELIMITER
    Next X
    ' 去掉行尾多余的分隔符，拼接换行符
    Text = Left(Text, Len(Text) - 1) & vbCrLf
Next Y

' 通过ADODB.Stream写入UTF-8编码文件
With CreateObject("ADODB.Stream")
    .Mode = adModeUnknown
    .Type = adTypeText
    .LineSeparator = adCrLf
    .Charset = "UTF-8"
    .Open
    .WriteText Text
    .SaveToFile FilePath, adSaveCreateOverWrite
    .Close
End With
End Sub

使用说明 #

• 更换列分隔符时，仅需修改主过程中的DELIMITER常量值即可，不需要调整其他逻辑。
• 代码全程不依赖xlCSVUTF8参数，完全兼容旧版本Excel，导出的UTF-8文件不会因为单元格内容包含分隔符、换行、双引号出现列或行结构错乱。
• 输出的文件遵循标准CSV格式，可被Excel、记事本及各类第三方数据处理工具正常识别读取；部分欧洲地区的Excel默认以分号为CSV分隔符，适配这类环境时可直接将DELIMITER设置为分号。

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