如何停止在VBA中使用ShellExecute命令创建的正在运行的任务

Question

如何停止运行已在VB中使用ShellExecute命令执行的应用程序

我尝试使用objShell。退出，objShell。杀死但不满意。 ActiveX Automation错误：未抛出此类属性或方法

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