Excel VBA - 如何停止通过Shell启动的程序？

Question

Excel 2002 VBA。

我有一个宏，当满足特定条件时，会启动外部脚本：

Shell("c:\program\script.exe")

当条件未满足时，我该如何停止运行中的程序？

- John M

Answer 1

由于Shell返回您启动的进程的进程ID，因此您可以尝试使用pskill及该进程ID来停止它：

dim pid
pid = Shell("c:\program\script.exe")
'...Do something
Shell "pskill " & pid

Shell 参考文档： https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/shell-function

- Igor Zevaka

Answer 2

这也会关闭应用程序：

TaskKill = CreateObject("WScript.Shell").Run("taskkill /f /im " & "script.exe", 0, True)

以下是将其转换为可重用函数的方法：

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

- Martin H.

Answer 3

一个可能的解决方案是先找出如何使用快捷键手动关闭，然后使用VBA中的sendkey函数发送按键以关闭。

- Rush