如何用VBA修复Excel“文件格式或扩展名无效”错误？

自定义VBA修复脚本 #

我自己写了一段简短的VBA代码，能解决这类格式识别错误的问题，操作步骤很简单：

1. 打开一个空白Excel文件（要确保宏功能已启用）
2. 按下Alt + F11打开VBA编辑器
3. 插入新模块，把下面的代码粘贴进去：

Sub FixCorruptedXLSM()
    Dim sourcePath As String, targetPath As String
    Dim wb As Workbook
    
    ' 选择需要修复的损坏文件
    With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Add "Excel Files", "*.xlsx;*.xlsm"
        .AllowMultiSelect = False
        If .Show = -1 Then
            sourcePath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    ' 自动生成带.xlsm后缀的保存路径
    targetPath = Left(sourcePath, InStrRev(sourcePath, ".")) & "xlsm"
    
    ' 尝试以修复模式打开文件并重新保存为xlsm格式
    On Error Resume Next
    Set wb = Workbooks.Open(sourcePath, CorruptLoad:=xlRepairFile)
    If Not wb Is Nothing Then
        wb.SaveAs Filename:=targetPath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        wb.Close SaveChanges:=False
        MsgBox "修复完成！文件已保存为：" & targetPath, vbInformation
    Else
        MsgBox "无法打开损坏的文件，请尝试其他修复方法。", vbCritical
    End If
    On Error GoTo 0
End Sub

4. 运行这个宏，跟着提示选择损坏的文件就行

代码说明 #

• 代码会先尝试以修复模式打开文件，然后强制将其保存为.xlsm格式，覆盖错误的格式标识
• 如果文件损坏程度太高无法打开，会弹出提示说明无法处理

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