如何杀死使用VBA没有响应的特定Excel

Question

我正在尝试通过我的应用程序打开Excel。

有时候Excel会卡住并且永远不会打开。当发生这种情况时，我想杀死一个VBA来监视这个并杀死这个特定的Excel而不是系统中所有打开的Excel。

下面的脚本让我杀死所有Excel的开放实例

Option Explicit

Dim objWMIService, objProcess, colProcess

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") 
Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = " & "'EXCEL.EXE'")

For Each objProcess in colProcess
    objProcess.Terminate()
Next

谢谢