CSV含换行值时Excel VBA导入代码失效，如何正确读取？

问题场景 #

当CSV文件的字段值被双引号包裹且内部包含换行符时，原VBA导入代码会错误将换行符识别为行分隔符，导致数据拆分错误。例如：

原始CSV内容（字段内带换行）：
"John","123 Main St'
Apt 4","New York"
预期解析结果（合并为一行）：
John | 123 Main St' Apt 4 | New York

原代码采用QueryTables组件，该组件对引号内的换行处理存在局限性，且同时启用逗号和分号分隔符会加剧解析混乱。

解决方案：自定义CSV解析逻辑 #

改用FileSystemObject读取整个CSV文件内容，手动解析字段，正确识别双引号包裹的内容（包括内部换行）：

Sub ImportCSVWithLineBreaks()
    Dim csvPath As Variant
    Dim fileContent As String
    Dim fs As Object
    Dim currentRow As String
    Dim inQuotes As Boolean
    Dim i As Integer
    Dim outputRow As Integer
    Dim char As String
    
    ' 选择CSV文件
    csvPath = Application.GetOpenFilename("CSV文件 (*.csv), *.csv")
    If csvPath = False Then Exit Sub
    
    ' 读取整个文件内容
    Set fs = CreateObject("Scripting.FileSystemObject")
    fileContent = fs.OpenTextFile(csvPath, 1).ReadAll
    
    ' 初始化变量
    inQuotes = False
    currentRow = ""
    outputRow = 1
    
    ' 逐字符解析内容
    For i = 1 To Len(fileContent)
        char = Mid(fileContent, i, 1)
        
        Select Case char
            Case """"
                ' 切换引号包裹状态
                inQuotes = Not inQuotes
                currentRow = currentRow & char
            Case vbCr, vbLf
                ' 仅当不在引号内时，才视为行结束
                If Not inQuotes Then
                    ' 解析当前行并写入工作表
                    ParseAndWriteRow currentRow, outputRow
                    outputRow = outputRow + 1
                    currentRow = ""
                    ' 跳过vbCrLf组合换行符
                    If char = vbCr And Mid(fileContent, i + 1, 1) = vbLf Then
                        i = i + 1
                    End If
                Else
                    ' 引号内的换行保留到字段中
                    currentRow = currentRow & char
                End If
            Case Else
                currentRow = currentRow & char
        End Select
    Next i
    
    ' 处理最后一行内容
    If currentRow <> "" Then
        ParseAndWriteRow currentRow, outputRow
    End If
    
    Set fs = Nothing
    MsgBox "导入完成", vbInformation
End Sub

' 辅助函数：解析单行字段并写入工作表
Private Sub ParseAndWriteRow(rowText As String, targetRow As Integer)
    Dim inQuotes As Boolean
    Dim currentField As String
    Dim i As Integer
    Dim char As String
    Dim col As Integer
    
    inQuotes = False
    currentField = ""
    col = 1
    
    For i = 1 To Len(rowText)
        char = Mid(rowText, i, 1)
        
        Select Case char
            Case """"
                inQuotes = Not inQuotes
            Case ","
                If Not inQuotes Then
                    ' 写入当前字段，可选择保留换行或替换为空格
                    Sheets(1).Cells(targetRow, col).Value = Replace(currentField, vbCrLf, " ")
                    col = col + 1
                    currentField = ""
                Else
                    currentField = currentField & char
                End If
            Case Else
                currentField = currentField & char
        End Select
    Next i
    
    ' 写入最后一个字段
    Sheets(1).Cells(targetRow, col).Value = Replace(currentField, vbCrLf, " ")
End Sub

代码说明 #

1. 全文件读取：避免逐行读取时误拆分引号内的换行
2. 引号状态跟踪：通过inQuotes变量判断当前字符是否处于双引号包裹范围
3. 行结束判断：仅当不在引号内时，才将换行符视为行分隔符
4. 字段解析：通过引号状态区分逗号是字段分隔符还是字段内容
5. 换行符处理：默认将字段内的换行替换为空格，若需保留单元格内换行，移除Replace函数即可

原代码优化提示（若坚持用QueryTables） #

如果一定要使用QueryTables，需修正两个关键问题：

• 仅保留正确的分隔符：CSV默认用逗号，设置.TextFileSemicolonDelimiter = False
• 确保系统区域设置的CSV分隔符与文件一致，但该方法仍无法彻底解决引号内换行的问题，仅适用于简单场景

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