close a none MS Office running program

[nmk34]

I need an excel VBA to close a program that runs when an excel workbook starts but i have no luck in closing it when a userform1 terminate! does anybody have a general subroutine i can use?

 

[rollis13]

No idea on how your project is so this could only be a suggestion. In my example I'm opening Notepad.exe from Excel.
I'm assuming that you would have something like this in your Workbook_Open macro to launch the program Notepad:

Private Sub Workbook_Open()
    Dim x As Variant
    x = Shell("C:\Windows\Notepad.exe", vbNormalFocus)
End Sub

Now you need to add this other line of code at the end of the macro where you close your UserForm1:

Call CloseProgram

and add this macro to a vbe module. It searches in Windows the process and terminates it:

Private Sub CloseProgram()
    Dim Process As Object
    For Each Process In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & "Notepad.exe" & "'")
        Process.Terminate
    Next
End Sub

See if you adapt this suggestion to your project.

 

[nmk34]

Thanks a lot, it works great

 

[rollis13]

Oh, not bad for a guess , glad having been of some help.