Как остановить запущенную задачу, созданную с помощью ShellExecute Command в VBA

Question

Как остановить запуск приложения, которое было выполнено с помощью команды ShellExecute в VB

Я пробовал с objShell. Выйти, objShell. Убить, но не доволен. Ошибка автоматизации ActiveX: такое свойство или метод не выброшены

Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute C:\Users\xyz.exe, "", ""
objShell.Kill

Answer 1

Ваш объект только открывает приложение, но не контролирует его.

Один из способов добиться большего контроля - это:

Sub terminate()

Dim exeID As Double
exeID = Shell("C:\Users\xyz.exe", vbNormalFocus)
Call Shell("TaskKill /F /PID " & exeID, vbHide)

End Sub