VBA宏快捷键执行时在Workbooks.Open后停止，单步执行正常求助

问题描述 #

• 快捷键Ctrl+Shift+X执行ShippingReport宏时，在完成Set Wb2 = Workbooks.Open("\\10.60.177.66\pm\DC\Daily shipping summary\" & NM & ".xlsx")代码后停止运行，目标文件可正常打开，但后续步骤无响应
• VBA编辑器按F8单步执行时，宏能完整走完所有流程
• 已尝试添加延迟计时器和DoEvents，问题未解决

可能的原因及解决办法 #

1. 目标文件的自动宏抢占执行上下文 #

如果打开的文件包含Workbook_Open()这类自动触发的宏，会打断原宏的执行流程。

• 解决代码：

  ' 先禁用自动事件触发
  Application.EnableEvents = False
  Set Wb2 = Workbooks.Open("\\10.60.177.66\pm\DC\Daily shipping summary\" & NM & ".xlsx")
  ' 恢复事件触发，务必加这行，避免影响Excel后续功能
  Application.EnableEvents = True
  

2. 网络共享文件加载不彻底 #

单步执行时系统有足够时间缓冲网络文件，但快捷键执行时可能文件未完全加载就进入下一步。可以添加循环等待：

Set Wb2 = Workbooks.Open("\\10.60.177.66\pm\DC\Daily shipping summary\" & NM & ".xlsx")
' 循环等待文件加载完成
Do While Not Wb2.Ready
    DoEvents
Loop

3. 窗口焦点切换导致执行环境异常 #

打开新文件后焦点自动转移，可能干扰原宏的执行上下文，强制切回原工作簿：

' 先保存原工作簿对象
Dim Wb1 As Workbook
Set Wb1 = ThisWorkbook

Set Wb2 = Workbooks.Open("\\10.60.177.66\pm\DC\Daily shipping summary\" & NM & ".xlsx")
' 切回原工作簿，维持宏的执行环境
Wb1.Activate

4. 静默错误导致宏中断 #

快捷键执行时Excel可能关闭了错误提示，宏遇到错误直接停止。添加错误捕获，显示具体错误信息：

Sub ShippingReport()
    On Error GoTo ErrorHandler
    ' 你的原有宏代码...
    
ErrorHandler:
    If Err.Number <> 0 Then
        MsgBox "错误代码：" & Err.Number & vbCrLf & "错误信息：" & Err.Description
        ' 兜底恢复事件触发，防止异常状态
        Application.EnableEvents = True
    End If
End Sub

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