通过VBA调用taskkill杀死Excel进程的64位Office适配问题

故障原因 #

你碰到的64位Office下Automation错误核心诱因有两个：

• 原WQL查询语句存在语法瑕疵：SELECT ProcessID, FROM Win32_Process 中ProcessID后的逗号是冗余内容，32位WMI解析器对这类错误有容错处理，64位下会直接触发解析失败
• 原代码依赖Shell调用taskkill，64位Office下如果系统环境变量存在异常会触发额外的调用失败问题，不过这不是核心报错点

适配修改方案 #

两条Set语句本身的对象赋值逻辑无需改动，只需要修正ExecQuery方法传入的WQL查询语句即可适配64位Office，且修改后的代码可同时兼容32位、64位Office环境，不需要更换全新的实现方案。

兼容全架构的完整代码 #

Dim objServices As Object, objProcessSet As Object, Process As Object
Set objServices = GetObject("winmgmts:\\.\root\CIMV2")
' 移除了SELECT语句中冗余的逗号，是64位下适配的核心修改点
Set objProcessSet = objServices.ExecQuery("SELECT ProcessID FROM Win32_Process WHERE name = ""excel.exe""", , 48)
'遍历所有Excel进程
For Each Process In objProcessSet
    ' 可选优化：直接调用WMI的Terminate方法杀进程，无需调用cmd弹黑框，兼容性更好
    Process.Terminate
    ' 如果需要保留原Shell调用逻辑，可注释上一行，使用原有逻辑即可
    ' command = "cmd.exe /S /C taskkill /pid " & Process.ProcessID
    ' Call Shell(command, vbNormalFocus)
Next Process

' 释放对象
Set Process = Nothing
Set objProcessSet = Nothing
Set objServices = Nothing

补充说明 #

如果仍有异常，可在变量声明区域新增条件编译的错误捕获逻辑，进一步适配特殊的系统权限限制场景，但绝大多数场景下修正WQL语法即可正常运行。

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