使用VBA将CSV另存为XLSX时文件损坏，求排查解决方法

问题出在你只修改了文件名后缀，却没有指定正确的文件保存格式。CSV是纯文本格式，而XLSX是Excel的二进制压缩格式，直接改后缀只会让文件变成“披着XLSX外衣的CSV”，自然无法被Excel正确识别。

修正后的VBA代码 #

Sub SaveAnalysis()
    Dim ArrearsAnalysis As String
    Dim AnalysisWB As Workbook
    Dim wb As Workbook
    Dim savePath As String
    
    ArrearsAnalysis = "Early Arrears Analysis"
    
    ' 查找目标工作簿，找到第一个匹配的就停止
    For Each wb In Application.Workbooks
        If wb.Name Like ArrearsAnalysis & "*" Then
            Set AnalysisWB = wb
            Exit For ' 避免多个匹配时覆盖，只取第一个
        End If
    Next wb
    
    ' 先判断是否找到目标工作簿
    If Not AnalysisWB Is Nothing Then
        Application.DisplayAlerts = False
        
        ' 替换后缀并指定XLSX格式
        savePath = Replace(AnalysisWB.FullName, ".csv", ".xlsx")
        AnalysisWB.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbook
        
        AnalysisWB.Close SaveChanges:=False ' 已经SaveAs过，无需再保存
        Application.DisplayAlerts = True
    Else
        MsgBox "未找到目标工作簿"
    End If
End Sub

关键修改说明 #

• 指定文件格式：SaveAs方法必须加上FileFormat:=xlOpenXMLWorkbook（对应数值51），这是生成合法XLSX文件的核心，告诉Excel按照XLSX的结构来保存内容，而不是简单重命名。
• 优化工作簿查找：添加Exit For，找到第一个匹配的工作簿就停止循环，避免多个符合条件的文件时出现覆盖问题。
• 增加错误预防：判断是否找到目标工作簿，避免因未找到而触发运行时错误。
• 合理关闭工作簿：因为已经通过SaveAs生成了新文件，关闭原工作簿时无需再次保存，用SaveChanges:=False更稳妥。

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