如何用VBA终止运行中的程序？我的SAP终止代码出错求排查

原代码的问题点： #

• 循环遍历对象错误：查询结果存入了procs变量，但循环时误用了未赋值的cProc，导致循环逻辑完全无法执行
• 冗余判断：查询语句已经筛选出saplogon.exe进程，循环内再次判断进程名属于多余操作
• 无效变量：cProc未被赋值也未参与任何逻辑，可直接删除

修正后的代码： #

Sub Kill_SAP()
    Dim oServ As Object
    Dim oProc As Object
    Dim procs As Object

    Set oServ = GetObject("winmgmts:")
    ' 精准查询目标进程
    Set procs = oServ.ExecQuery("SELECT * FROM Win32_Process where name = 'saplogon.exe'")
    
    ' 遍历并终止所有匹配进程
    For Each oProc In procs
        On Error Resume Next ' 捕获终止失败的异常（如进程已关闭、无权限）
        oProc.Terminate
        On Error GoTo 0 ' 恢复默认错误处理
    Next oProc
End Sub

补充说明： #

• 加入错误捕获是为了避免因个别进程无法终止（比如已被手动关闭）导致整个代码中断
• 若需要验证终止效果，可以在代码末尾重新查询进程并判断数量，但注意进程终止后不会立刻从WMI查询结果中消失，建议延迟1-2秒后再验证

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