Workbook_BeforeClose函数致多工作簿关闭时Excel崩溃求助

问题根源分析 #

你的代码存在几个关键问题，会导致多工作簿环境下Excel崩溃：

• 未恢复Application.DisplayAlerts状态：代码开头关闭了操作提示，但最后没有重新开启，这会干扰Excel的正常交互逻辑，尤其是多工作簿场景下的资源释放流程。
• 未处理目标工作簿已打开的情况：如果Local_datafile.xlsx已经被其他工作簿打开，重复调用Workbooks.Open会触发异常，进而引发崩溃。
• 事件执行上下文冲突：在BeforeClose事件中打开并操作外部工作簿，可能和Excel的工作簿关闭流程产生资源竞争，多工作簿同时存在时冲突会更明显。

修正后的代码 #

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim wb As Workbook
    Dim sht1 As Worksheet
    Dim current_sht1 As Worksheet
    Dim FilePath As String
    Dim shtName1 As String
    Dim alertState As Boolean
    Dim screenState As Boolean

    ' 保存Excel原有环境状态，避免影响其他操作
    alertState = Application.DisplayAlerts
    screenState = Application.ScreenUpdating
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    FilePath = "C:\Users\DLW\Test1\Local_datafile.xlsx"
    shtName1 = "Tab1"

    On Error GoTo Cleanup ' 启用错误捕获，防止崩溃扩散

    Set current_sht1 = ThisWorkbook.Worksheets(shtName1)

    ' 先检查目标工作簿是否已打开，避免重复打开引发冲突
    On Error Resume Next
    Set wb = Application.Workbooks(Dir(FilePath))
    On Error GoTo Cleanup
    If wb Is Nothing Then
        Set wb = Application.Workbooks.Open(FilePath)
    End If
    
    Set sht1 = wb.Worksheets(shtName1)

    sht1.Cells.Clear
    current_sht1.UsedRange.Copy
    sht1.Range("A1").PasteSpecial xlPasteValues

    Application.CutCopyMode = False

    wb.Close SaveChanges:=True
    ThisWorkbook.Save
    MsgBox "Saved to local file."

Cleanup:
    ' 强制恢复Excel原有环境状态，这是避免崩溃的核心步骤
    Application.DisplayAlerts = alertState
    Application.ScreenUpdating = screenState
    
    ' 显式释放对象引用，帮助Excel及时回收内存
    Set sht1 = Nothing
    Set wb = Nothing
    Set current_sht1 = Nothing
    
    ' 若发生错误，提示用户并取消当前工作簿的关闭操作（可选）
    If Err.Number <> 0 Then
        MsgBox "保存失败：" & Err.Description
        Cancel = True
    End If
End Sub

关键改进点 #

• 环境状态保护：提前记录DisplayAlerts和ScreenUpdating的初始值，无论代码执行是否成功，都会在最后恢复原有状态，避免影响其他工作簿的正常运行。
• 避免重复打开工作簿：先尝试引用已打开的目标工作簿，只有在未打开时才执行打开操作，减少冲突概率。
• 错误捕获与资源清理：通过错误捕获分支确保资源释放和环境恢复，防止内存泄漏或异常残留导致崩溃。

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