Excel宏执行Workbooks.Open后文件立即关闭、宏终止运行是什么原因

你所猜测的「目标文件存放在网络驱动器」确实是可能的诱因之一，除此之外还有多个常见原因，具体排查和修复方案如下：

常见故障原因 #

• 网络驱动器异常：网络映射盘符不稳定、临时断连、权限校验失败、读写延迟过高都会导致Workbooks.Open触发未捕获的运行时错误，无提示直接终止宏运行。
• 目标文件自带自动关闭逻辑：如果文件B的Workbook_Open事件中存在校验失败自动关闭工作簿、退出Excel的代码，会在文件打开后立即执行，连带你的调用宏一起终止。
• 代码写法不严谨：你没有用对象变量承接打开的工作簿，完全依赖ActiveWorkbook定位目标，当网络打开文件慢、激活态漂移时，后续操作找不到目标对象会触发错误终止。

修复排查方案 #

首先使用添加了错误捕获、对象变量、打开参数的版本运行，定位具体故障原因：

Sub Aktualizace()
    Dim Mesic As String, Rok As String
    Dim targetWb As Workbook
    Dim targetPath As String
    
    Mesic = Month(Sheets("XY").Range("A1"))
    Rok = Year(Sheets("XY").Range("A1"))
    
    If Mesic < 10 Then
        targetPath = "path to file A"
    Else
        targetPath = "path to file B"
    End If
    
    ' 错误捕获定位问题
    On Error Resume Next
    ' 打开时禁用链接更新、临时禁用事件触发（排查用）
    Set targetWb = Workbooks.Open(Filename:=targetPath, UpdateLinks:=0, EnableEvents:=False)
    
    If Err.Number <> 0 Then
        MsgBox "打开文件失败，错误代码：" & Err.Number & "，错误描述：" & Err.Description
        Exit Sub
    End If
    On Error GoTo 0
    
    ' 后续操作全部用targetWb替代ActiveWorkbook，避免激活态漂移
    ' ...
    ' 你的原有后续操作逻辑
    ' ...
    targetWb.Calculate
    targetWb.Save
    targetWb.Close
End Sub

排查步骤 #

• 运行修改后的代码，若弹出错误提示为「路径不存在」「权限不足」「网络名不可用」类描述，即可确认是网络驱动器问题。你可以先将目标文件复制到本地磁盘测试，如果本地运行正常，后续建议改用UNC路径（格式为\\服务器IP\共享文件夹名\文件名.xlsx）替代映射的网络盘符，稳定性远高于映射盘。
• 若运行修改后的代码没有报错，后续步骤可以正常执行，说明故障是目标文件的Workbook_Open事件逻辑导致，你可以根据需求修改目标文件的打开事件代码，或保留EnableEvents:=False参数屏蔽目标文件的事件触发即可。

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