Excel VBA读取CSV时如何将第二、三行合并为一行导入网格表

错误原因 #

• 字符串内的VBA函数不会被自动解析：Chr(44)、Chr(10)这类VBA函数写在双引号包裹的字符串中时，会被识别为普通文本而不是对应的特殊字符，需要放在引号外通过&拼接才能生效。
• CSV特殊字符没有做兼容处理：CSV规范要求，单元格内容包含逗号、换行符、双引号时，必须将整个单元格内容用双引号包裹，内容中原有的双引号要替换为两个连续双引号，否则会出现解析错位。
• 现有逻辑未实现行合并需求：你当前的代码仅直接修改第二行的文本，没有将原第二、三行的内容拼接，也没有删除冗余的原第三行。

修正后代码 #

CSV行合并处理代码 #

filePath = folder & fileName
 
Dim fso As Object, fsoFile As Object, txt As Variant, i As Long

Set fso = CreateObject("Scripting.FileSystemObject")
' 最后参数-2自动识别文本编码，避免中文乱码
Set fsoFile = fso.OpenTextFile(filePath, 1, , -2)
txt = Split(fsoFile.ReadAll, vbNewLine)
fsoFile.Close

' 合并原第二行（数组索引为1）和原第三行（数组索引为2）
' 先移除原有多余双引号，拼接后再统一套双引号满足CSV格式
txt(1) = Trim(Replace(txt(1), """", "")) & Chr(44) & Trim(Replace(txt(2), """", ""))
txt(1) = """" & txt(1) & """"

' 删除原第三行，后续行整体前移
For i = 2 To UBound(txt) - 1
    txt(i) = txt(i + 1)
Next
ReDim Preserve txt(UBound(txt) - 1)

' 写入修改后的CSV文件
Set fsoFile = fso.OpenTextFile(filePath, 2, , -2)
fsoFile.Write Join(txt, vbNewLine)
fsoFile.Close
Set fso = Nothing

QueryTables加载代码调整 #

把原代码中的.Refresh BackgroundQuery:=True修改为.Refresh BackgroundQuery:=False，避免数据还未加载完成就执行后续操作。如果需要保留单元格内的换行显示，可在加载完成后设置对应列的WrapText = True开启自动换行。

特殊字符使用说明 #

如果需要在合并后的单元格内插入换行，直接在字符串拼接时使用Chr(10)即可，示例：
txt(1) = """" & "第一行内容" & Chr(10) & "第二行内容" & """"

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