Excel VBA - Stop -Laufen -Programm, das von Shell gestartet wurde?

Question

Excel 2002 VBA.

Ich habe ein Makro, das ein externes Skript startet, wenn ein bestimmter Zustand erfüllt ist:

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

Wie stoppe ich dieses laufende Programm, wenn die Bedingung nicht erfüllt ist?

Answer 1

Da Shell die Prozess -ID des Prozesss zurückgibt, mit dem Sie gestartet wurden, können Sie versuchen, PSKill mit dieser Verfahrens -ID zu verwenden, um sie zu stoppen:

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

Shell Referenz:https://docs.microsoft.com/en-us/office/vba/glanguage/reference/user-interface-help/shell-funktion