Close an application with vba

[Ljb12668]

I have workbook in which I open another program using the Shell statement. I want to close the other program as well when I close my excel spreadsheet. Does anyone know the command/code to do this.
Example: I open my workbook, it automatically opens a program called windwedge bu using Shell (C:\program files\winwedge.exe"). When I close my workbook I want windwedge to close also.

Thank You

 

[Ivan F Moala]

Give this a Try ???


You will need to KNOW the App Windows Caption
and substitute this in the Name


<font face=Courier New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN>

<SPAN style="color:#007F00">'// used to find the Winwedge Window</SPAN>
<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Declare</SPAN> <SPAN style="color:#00007F">Function</SPAN> FindWindow _
    <SPAN style="color:#00007F">Lib</SPAN> "user32" _
    Alias "FindWindowA" ( _
    <SPAN style="color:#00007F">ByVal</SPAN> lpClassName <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>, _
    <SPAN style="color:#00007F">ByVal</SPAN> lpWindowName <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>) _
As <SPAN style="color:#00007F">Long</SPAN>

<SPAN style="color:#007F00">'// used to CLOSE the Winwedge App</SPAN>
<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Declare</SPAN> <SPAN style="color:#00007F">Function</SPAN> PostMessage _
    <SPAN style="color:#00007F">Lib</SPAN> "user32" _
    Alias "PostMessageA" ( _
    <SPAN style="color:#00007F">ByVal</SPAN> hWnd <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, _
    <SPAN style="color:#00007F">ByVal</SPAN> wMsg <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, _
    <SPAN style="color:#00007F">ByVal</SPAN> wParam <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, _
    lParam <SPAN style="color:#00007F">As</SPAN> Any) _
As <SPAN style="color:#00007F">Long</SPAN>

<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Const</SPAN> WM_CLOSE = &H10

<SPAN style="color:#00007F">Sub</SPAN> TesterClose()
<SPAN style="color:#00007F">Dim</SPAN> lngRet <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> Pid <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> Winwedgehdl <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>

Shell "C:\program files\winwedge.exe"

Winwedgehdl = FindWindow(vbNullString, "The name as it appears in your App Title")
PostMessage Winwedgehdl, WM_CLOSE, 0&, 0&

<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>

</FONT>