Wie kann ich kill den task-manager-Prozesse über VBA-code?

Ich versuche zu töten bestimmter Prozesse durch VBA. Ich habe ein proprietäres Objekt, das eine Verbindung zu einem Markt-Daten-bus. Über FTE-ich nenne das-Objekt-pub/sub-bus. Aber manchmal wird die Verbindung unterbrochen und ich muss den Prozess über den task-manager. Gibt es einen Weg, um zu töten ein Prozess über VBA?

Dank

Welche Prozesse? Ich habe nicht downvote, aber oft diese stillen downvoters werde es tun, weil es ist, weil Sie nicht zeigen, dass Ihre Bemühungen so weit(oder erklären, warum Sie Ihre google-Ergebnisse sind nicht hilfreich), um das problem anzugehen. Es wird Ihnen helfen und den nächsten Mann mit der spezifischen problem. Bitte Check this out

InformationsquelleAutor Chris Hanlon | 2014-10-10

  1. 13

    Versuchen Sie es mit diesem code

    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
    Ein wenig einfacher, die Sie verwenden können: Set cProc = oServ.ExecQuery("Select * from Win32_Process Where Name = 'EXCEL.EXE'") nur Excel-Prozesse.
    errReturnCode Variable Not defined
    Lopez schaut mal, ich bearbeitet den code

    InformationsquelleAutor Gianluca Colombo

  2. 7

    Werfen Sie einen Blick auf ein Beispiel:

    Sub Test()
    If TaskKill("notepad.exe") = 0 Then MsgBox "Terminated" Else MsgBox "Failed"
End Sub

Function TaskKill(sTaskName)
    TaskKill = CreateObject("WScript.Shell").Run("taskkill /f /im " & sTaskName, 0, True)
End Function

    InformationsquelleAutor omegastripes

  3. 1

    Können Sie es, auf diese Weise:

    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  'kill exe
    End If
Next

    InformationsquelleAutor user10769870

  4. 0
    Sub Kill_Excel()

Dim sKillExcel As String

sKillExcel = "TASKKILL /F /IM Excel.exe"
Shell sKillExcel, vbHide

End Sub
    Fügen Sie bitte eine Erklärung zu Ihrem code - für mich sieht es aus wie eine Antwort, die schon gepostet wurde vor mehr als zwei Jahren

    InformationsquelleAutor Karuna Hebsur

Schreibe einen Kommentar