Excel自动化打开需修复工作簿时Workbooks.Open报错求助

你遇到的这个提示是Excel检测到文件存在损坏标记导致的，禁用事件或者用SendKeys的方法根本没用——前者管的是工作簿事件，和文件修复提示无关；后者的代码在报错时根本执行不到，因为Workbooks.Open会卡在对话框那里，后面的代码跑不起来。

直接用Workbooks.Open的CorruptLoad参数就能解决，这个参数可以指定Excel自动处理修复请求，不用弹提示：

Dim SourceWorkbook As Workbook
' 用xlRepairFile参数自动修复打开，不弹提示
Set SourceWorkbook = Workbooks.Open( _
    Filename:=FolderPath & FileName, _
    ReadOnly:=True, _
    CorruptLoad:=xlRepairFile)

' 这里写你的数据合并逻辑

' 关闭源工作簿，不要保存修复后的文件（因为是ReadOnly打开，也没法保存）
SourceWorkbook.Close SaveChanges:=False

参数说明： #

• xlRepairFile (值为1)：让Excel自动尝试修复文件，和手动点击"Yes"的效果一致，修复后正常打开
• 如果只需要提取数据不需要修复文件结构，可以用xlExtractData (值为2)，会跳过格式和公式，只加载数据

额外注意： #

1. 确保你的Excel版本支持这个参数（Excel 2010及以上都支持）
2. 因为是ReadOnly打开，修复后的改动不会保存回源文件，避免破坏原始数据
3. 如果部分文件修复后还是无法打开，建议在代码里加错误捕获，跳过损坏严重的文件：

Dim SourceWorkbook As Workbook

On Error Resume Next
Set SourceWorkbook = Workbooks.Open( _
    Filename:=FolderPath & FileName, _
    ReadOnly:=True, _
    CorruptLoad:=xlRepairFile)
On Error GoTo 0

If Not SourceWorkbook Is Nothing Then
    ' 执行合并逻辑
    SourceWorkbook.Close SaveChanges:=False
Else
    ' 记录无法打开的文件名，后续排查
    Debug.Print "无法打开文件：" & FolderPath & FileName
End If

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