如何检测Excel实例是否存活 识别任务管理器强制关闭场景

你本地代码里持有的xlApp是.NET为COM对象生成的运行时可调用包装（RCW），这个对象是存在于你当前进程内存里的。哪怕后台的Excel进程被任务管理器强制结束，你本地的RCW引用不会被自动置空，所以IsNothing永远返回False，这个方法从原理上就无法检测远端COM实例的存活状态。

1. 轻量进程ID检测（推荐作为前置快速校验） #

你可以在创建Excel实例的第一时间，拿到实例对应的进程ID，后续直接通过系统进程状态判断实例是否存活，这个方法开销极小，适合后台定期巡检：

' 引入所需命名空间
Imports System.Runtime.InteropServices
Imports System.Diagnostics

' 声明Win32API用于获取窗口对应的进程ID
<DllImport("user32.dll", SetLastError:=True)>
Private Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, ByRef lpdwProcessId As UInteger) As UInteger
End Function

' ==== 创建实例时的逻辑 ====
Dim xlApp As Excel.Application = DirectCast(CreateObject("Excel.Application"), Excel.Application)
Dim excelPid As UInteger = 0
' 拿到Excel主窗口句柄后查询对应PID
GetWindowThreadProcessId(New IntPtr(xlApp.Hwnd), excelPid)
' 把excelPid存为类级别的变量，后续检测用

' ==== 检测函数 ====
Private Function IsExcelProcessAlive(pid As UInteger) As Boolean
    Try
        Dim targetProc = Process.GetProcessById(CInt(pid))
        Return Not targetProc.HasExited
    Catch ex As ArgumentException
        ' 找不到对应PID的进程，说明实例已退出
        Return False
    End Try
End Function

这个方法的注意点：Windows会复用进程ID，所以如果检测到进程存在，建议配合下面的COM属性检测做二次确认，避免误判到PID复用的其他进程。

2. COM属性访问检测（作为二次校验） #

尝试访问Excel实例无副作用的内置属性，如果通信失败就说明实例已经断开连接：

Private Function IsExcelComAlive(app As Excel.Application) As Boolean
    If app Is Nothing Then Return False
    Try
        ' 访问Version属性不会对Excel状态产生任何修改，仅触发跨进程COM通信
        Dim _ = app.Version
        ' 额外校验主窗口句柄有效性，排除僵尸实例
        Return app.Hwnd <> IntPtr.Zero
    Catch ex As COMException When ex.HResult = &H800706BA Or ex.HResult = &H80010108
        ' 0x800706BA: RPC服务不可用，对应进程已被强杀
        ' 0x80010108: COM对象已断开连接
        Return False
    Catch
        ' 其他未知异常统一判定为不可用，走重建逻辑更稳妥
        Return False
    End Try
End Function

不要完全依赖前置检测——所有前置检测都存在竞态问题：你刚检测完实例存活，下一秒实例就可能被用户通过任务管理器结束，后续操作依然会抛出异常。针对你这种后台长期运行、持续开关工作簿的场景，建议按下面的逻辑实现：

• 每次执行Excel操作前，先做两层检测：先用PID做快速校验，如果进程不存在直接重建实例；如果进程存在，再用COM属性检测确认连接正常。
• 所有和Excel交互的代码（打开工作簿、读写单元格、关闭文档等）全部包裹在Try...Catch块中，捕获对应的COM异常，一旦触发异常就走实例重建逻辑，兜底处理检测后实例意外退出的边缘情况。
• 判定实例失效后，必须按顺序释放所有关联的COM对象：先关闭并释放所有打开的Workbook、Worksheet对象，最后释放Application对象，再触发GC回收，避免残留RCW引用导致内存泄漏、Excel进程无法完全退出的问题。
• 不要等打开新工作簿的时候才做异常处理：如果实例已经失效，中间任何涉及COM调用的逻辑（比如读取之前缓存的工作表对象、调整实例配置）都会抛错，全链路加兜底才是稳妥的方案。

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