如何在Excel VBA中合并或读取带有换行符/回车符(CR)的csv文件？

Sub MergeCSVFiles()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim targetRow As Long
    
    ' 设置文件夹路径
    folderPath = "C:\CSVFiles\"
    
    ' 创建一个新的工作簿
    Set wb = Workbooks.Add
    
    ' 循环遍历文件夹中的所有CSV文件
    fileName = Dir(folderPath & "*.csv")
    Do While fileName <> ""
        ' 打开CSV文件
        Set ws = wb.Sheets.Add
        With ws.QueryTables.Add(Connection:="TEXT;" & folderPath & fileName, Destination:=ws.Range("A1"))
            .TextFileParseType = xlDelimited
            .TextFileCommaDelimiter = True ' 如果CSV文件使用逗号分隔数据，使用此行
            .TextFileTabDelimiter = True ' 如果CSV文件使用制表符分隔数据，使用此行
            .TextFileOtherDelimiter = ";" ' 如果CSV文件使用其他分隔符，使用此行，并将分隔符放在引号内
            .Refresh
        End With
        
        ' 将数据复制到目标工作表中
        targetRow = ThisWorkbook.Sheets("合并数据").Cells(Rows.Count, 1).End(xlUp).Row + 1
        ws.UsedRange.Copy ThisWorkbook.Sheets("合并数据").Cells(targetRow, 1)
        
        ' 关闭CSV文件
        ws.Delete
        fileName = Dir
    Loop
    
    ' 关闭新创建的工作簿
    wb.Close SaveChanges:=False
End Sub