stopping or closing exe files from excel

[Guest]

I can start an exe file in excel using vb code "fileOpen=shell("file
name",vbMaximizeFocus)

 

[Karl E. Peterson]

I can start an exe file in excel using vb code "fileOpen=shell("file
name",vbMaximizeFocus)

Sure, why not?

 

[Guest]

Sorry, I forgot to add that I don't know how to close it.

 

[Jim Rech]

This demonstrates how to close a shelled app:

Private Declare Function TerminateProcess Lib "kernel32" _
(ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const PROCESS_TERMINATE = 1

Sub OpenClose()
Dim ProcessHandle As Long, PID As Long
PID = CLng(Shell("notepad.exe", vbNormalFocus))
Sleep 5000
ProcessHandle = OpenProcess(PROCESS_TERMINATE, 0, PID)
TerminateProcess ProcessHandle, 0
CloseHandle ProcessHandle
End Sub


--
Jim
message | Sorry, I forgot to add that I don't know how to close it.
|
| "Karl E. Peterson" wrote:
|
| > petgrub_in_excel wrote:
| > > I can start an exe file in excel using vb code "fileOpen=shell("file
| > > name",vbMaximizeFocus)
| >
| > Sure, why not?
| > --
| > Working Without a .NET?
| > http://classicvb.org/petition
| >
| >
| >

 

[Guest]

works great. Thanks so much

 

[Guest]

This code doesn't work.