Ukončení programu v systému – task kill

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

Příspěvek byl publikován v rubrice Excel notes, VBA. Můžete si uložit jeho odkaz mezi své oblíbené záložky.