为何VBA脚本生成的CSV文件损坏？求技术排查思路

核心问题根源 #

你脚本里犯了致命错误：你试图用文本读取方式打开.xlsx格式文件。.xlsx本质是ZIP压缩包（记事本打开看到的PK就是压缩包的标识），根本不是纯文本的CSV文件。直接用OpenTextFile读取会把二进制压缩内容当成文本读，再写入新文件自然是损坏的——因为写入的不是CSV的纯文本内容，而是Excel压缩包的乱码二进制。

看你代码里的注释写着“our original file that we've exported as csv file”，但实际指定的读取文件是features_AFXMASTER.xlsx，这就是问题的核心：你读的是Excel工作簿，不是导出的纯文本CSV。

修复后的解决方案 #

方案1：先导出逗号CSV再替换分隔符 #

先把当前Excel工作簿导出为标准逗号分隔的CSV，再读取这个纯文本文件替换逗号为半分号：

Private Sub ExportToSemicolonCSV()
    Dim filePath As String
    Dim tempCSVPath As String
    Dim targetCSVPath As String
    Dim objFSO As Object
    Dim objTS As Object
    Dim strContents As String
    
    filePath = "C:\Users\julie\"
    tempCSVPath = filePath & "temp_comma.csv" '临时逗号分隔CSV
    targetCSVPath = filePath & "features_AFX.csv" '目标半分号CSV
    
    '第一步：将当前工作簿导出为逗号分隔的CSV
    ThisWorkbook.SaveAs Filename:=tempCSVPath, FileFormat:=xlCSV, Local:=False
    
    '第二步：读取临时CSV并替换逗号为半分号
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTS = objFSO.OpenTextFile(tempCSVPath, 1) '1=ForReading
    strContents = objTS.ReadAll
    strContents = Replace(strContents, ",", ";")
    objTS.Close
    
    '第三步：写入目标半分号CSV
    Set objTS = objFSO.CreateTextFile(targetCSVPath, True) 'True=覆盖已有文件
    objTS.Write strContents
    objTS.Close
    
    '删除临时文件（可选）
    Kill tempCSVPath
End Sub

方案2：直接从工作表生成半分号CSV（更可靠，支持特殊字符） #

如果要确保单元格内的半分号、换行、引号等特殊字符被正确转义（符合CSV规范），直接遍历工作表内容生成CSV更稳妥：

Private Sub GenerateSemicolonCSV()
    Dim filePath As String
    Dim targetCSVPath As String
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim r As Long, c As Long
    Dim cellValue As String
    Dim csvLine As String
    Dim fileNum As Integer
    
    filePath = "C:\Users\julie\"
    targetCSVPath = filePath & "features_AFX.csv"
    Set ws = ThisWorkbook.Worksheets("你的工作表名称") '替换成实际工作表名
    
    '获取数据范围
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    '打开文件准备写入
    fileNum = FreeFile()
    Open targetCSVPath For Output As #fileNum
    
    '遍历每行每列生成CSV内容
    For r = 1 To lastRow
        csvLine = ""
        For c = 1 To lastCol
            cellValue = ws.Cells(r, c).Value
            '处理特殊字符：如果包含半分号、引号或换行，用双引号包裹，内部引号转义为两个引号
            If InStr(cellValue, ";") > 0 Or InStr(cellValue, """") > 0 Or InStr(cellValue, vbCrLf) > 0 Then
                cellValue = Replace(cellValue, """", """""") '转义双引号
                cellValue = """" & cellValue & """"
            End If
            '拼接列内容，用半分号分隔
            csvLine = csvLine & cellValue & IIf(c < lastCol, ";", "")
        Next c
        '写入一行
        Print #fileNum, csvLine
    Next r
    
    '关闭文件
    Close #fileNum
End Sub

关键注意事项 #

• 方案2更适合你的需求：它严格遵循CSV规范，当单元格内容包含半分号、双引号或换行时，会自动用双引号包裹内容并转义内部引号，避免后续解析出错。
• 永远不要直接读取.xlsx/.xlsm文件作为文本，它们是压缩二进制格式，不是纯文本文件。
• 如果你用方案1，要确保导出的临时CSV是纯文本格式，SaveAs的FileFormat:=xlCSV会生成标准逗号分隔的纯文本文件，这样读取替换才有效。

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