excel - 如何通过 VBA 代码终止任务管理器进程？

Question

我正在尝试通过 VBA 终止某些进程。我有一个连接到市场数据总线的专有对象。通过 RTD，我调用该对象来发布/订阅到总线。然而，有时连接会断开，我需要通过任务管理器终止该进程。有没有办法通过VBA杀死进程？

谢谢

Answer 1

尝试使用此代码

Dim oServ As Object
Dim cProc As Variant
Dim oProc As Object

Set oServ = GetObject("winmgmts:")
Set cProc = oServ.ExecQuery("Select * from Win32_Process")

For Each oProc In cProc

    'Rename EXCEL.EXE in the line below with the process that you need to Terminate. 
    'NOTE: It is 'case sensitive

    If oProc.Name = "EXCEL.EXE" Then
      MsgBox "KILL"   ' used to display a message for testing pur
      oProc.Terminate()
    End If
Next