Внешние приложения - Закрытие

Public Sub CloseProcess(sProcCaption As String)

'es 09.06.2017

'Закрытие Приложения (процесса) с названием указанным в аргументе (Маска: Название*)

'--------------------------------------------------------------------------

'Литература:

'Рецепты WMI: управление процессами : http://www.script-coding.com/WMI_Processes.html

'--------------------------------------------------------------------------

Dim objProcess As Object

On Error GoTo CloseProcess_Err

'Перебор запущенных процессов

For Each objProcess In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")

'Debug.Print objProcess.Caption

If objProcess.Caption Like sProcCaption & "*" Then

objProcess.Terminate 'Закрытие процесса

End If

Next

CloseProcess_Bye:

Exit Sub

CloseProcess_Err:

MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: CloseProcess", vbCritical, "Error in module mod00_Test"

Resume CloseProcess_Bye

End Sub

Пример экспруотации:

Private Sub TestOne()

'Закрываем Калькулятор

CloseProcess "Calculator.exe" 'Здесь пишем имя нужной проги

End Sub

Public Sub testZed()

'Запускаем Калькулятор

Dim WshShell As Object, oExec As Object

Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("calc") 'Calculator.exe

End Sub