Excel 365中Workbooks.Open指令崩溃及宏冻结问题技术问询

问题背景 #

近日在Excel 365中执行宏里的Workbooks.Open指令时出现崩溃，宏逻辑是先检查文件是否存在或已打开，再调用该指令。原代码在Excel 2016中可正常运行，但在365中执行到Workbooks.Open时直接退出，且On Error Resume Next未捕获到错误。

原崩溃代码片段 #

On Error Resume Next
   Workbooks.Open FileName:=Full_File_Name, Updatelinks:=0   ' Excel 365在此处退出，无错误捕获
   errnum = Err
        
   Select Case errnum
       Case 0
            ' Ok continue
       Case 40040
            'Ignore this error - continue
       Case Else
            MsgBox ("Check pathname and file name of your file" & File_Name)
       End Select

修改后的代码及新问题 #

将代码修改为接收返回的工作簿对象后，崩溃问题解决，但部分调用该函数的宏执行结束后Excel出现冻结：

• HP 15（Windows 11、16GB，2021款）：文件菜单“关闭”等选项变灰，只能通过右上角红叉关闭并提交报告
• HP DV7（Windows 10、8GB，2010款）：所有菜单无响应，只能强制关闭并提交报告

修改后的核心代码：

' 顶部声明
Dim wb As Workbook

' 替换原Open语句
Set wb = Workbooks.Open(FileName:=Full_File_Name, Updatelinks:=0)

完整函数代码 #

Function OpenFileIfClosed(FilePathName As String, FileName As String)

'open a closed excel file, let it open if already open

' reply code:
' returns  1 (constant FileisOpen = 1 in the definitions) if the File is open
' or retunrs the VBA error code

    
    Dim errnum As Variant
    Dim rc As Boolean
    
    Dim wb As Workbook
    
    Dim Full_File_Name As String
        
        
    Full_File_Name = FilePathName & "\" & FileName
    
    'Call function to check if the file is open
    rc = IsFileOpen(FileName)
    
    Debug.Print ("IsFileOpen reply = " & rc)
    
    If rc Then
        Debug.Print ("Already open")
        OpenFileIfClosed = 1 'rc = 0 means no errors, therefore file closed -> open the file
    Else
    
        On Error Resume Next
        'Workbooks.Open FileName:=Full_File_Name, Updatelinks:=0
        Set wb = Workbooks.Open(FileName:=Full_File_Name, Updatelinks:=0)
        errnum = Err
        Select Case errnum
            Case 0
                ' OK continue
            Case 40040
                'Ignore this error - continue
            Case Else
                MsgBox ("Check Path name and File Name of your file" & FileName)
        End Select
            
        
        rc = IsFileOpen(FileName)
        Debug.Print ("IsFileOpen reply = " & rc)
        If rc Then
            OpenFileIfClosed = 1
        Else
            ' erreur à l'ouverture du fichier
            OpenFileIfClosed = Err
        End If
    End If
 
End Function


Function IsFileOpen(FileName As String) As Boolean
    Dim IsWorkBookOpen As Variant
    Dim xWb As Workbook

    On Error Resume Next
    Set xWb = Application.Workbooks.Item(FileName)
    IsFileOpen = (Not xWb Is Nothing)
    
    'disable "On Error" (en principe automatique)
    On Error GoTo 0

End Function

疑问 #

1. 为何Workbooks.Open FileName:=Full_File_Name, Updatelinks:=0语法在Excel 365中失效，但在Excel 2016中仍可正常运行？
2. 是否有方法分析Excel冻结的原因（不确定是否与新语法有关）？

1. 原语法在Excel 365中失效的原因 #

• VBA引擎行为变更：微软对Excel 365的VBA运行时做了严格性调整，原代码直接调用Workbooks.Open却不接收返回对象，在文件链接处理、后台加载等场景下，可能触发VBA层面无法捕获的进程级异常（比如内存冲突、COM对象初始化失败），导致Excel直接崩溃。而On Error Resume Next只能拦截VBA可恢复错误，对这类底层异常无能为力。
• 兼容性差异：Excel 2016的VBA引擎对无返回对象的Workbooks.Open调用兼容性更强，未触发这类底层异常，因此代码可正常运行。

2. 分析Excel冻结原因的方法 #

代码层面排查 #

• 释放工作簿对象：函数结束时未显式释放wb对象（Set wb = Nothing），可能导致COM资源泄漏，引发Excel冻结。建议在函数末尾添加该语句。
• 修复IsFileOpen逻辑：原函数仅通过文件名判断工作簿是否打开，若存在同名不同路径的文件会导致误判。修改为通过完整路径校验：

  Function IsFileOpen(FullFilePath As String) As Boolean
      Dim xWb As Workbook
      On Error Resume Next
      For Each xWb In Application.Workbooks
          If StrComp(xWb.FullName, FullFilePath, vbTextCompare) = 0 Then
              IsFileOpen = True
              Exit Function
          End If
      Next xWb
      IsFileOpen = False
      On Error GoTo 0
  End Function
  

• 优化Workbooks.Open参数：添加更多参数强制同步加载、抑制弹窗，避免后台加载引发的资源占用：

  Set wb = Workbooks.Open(FileName:=Full_File_Name, _
                          UpdateLinks:=0, _
                          ReadOnly:=False, _
                          IgnoreReadOnlyRecommended:=True, _
                          AddToMru:=False, _
                          Notify:=False)
  

系统与环境排查 #

• 查看崩溃日志：打开Excel选项→信任中心→信任中心设置→隐私选项，勾选“启用崩溃数据上传”，崩溃后在%LOCALAPPDATA%\Microsoft\Office\16.0\Excel\CrashDumps路径下获取dmp文件，用Windows调试工具分析异常原因。
• 禁用第三方加载项：打开Excel选项→加载项→管理COM加载项→转到，禁用所有非微软加载项，排除加载项冲突。
• 修复Office安装：通过控制面板→程序和功能→选择Office 365→更改→快速修复/联机修复，修复损坏的Office文件。

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