How do i close i an application by VBA? (Repost)

[Avi]

Hello,

I open an application via this code that works fine
Sub LaunchCaptureExpress()
Dim RetVal As Long
RetVal = Shell("C:\Program Files\Capture
Express\capexp.exe", vbNormalFocus)
End Sub

How do i close it???

I was given the following solution by "chijanzen", but i get an error message " AciveX does'nt support object" that refers to "Set WshShell = CreateObject("Wscript.Shell")"

close the Windows after 10 seconds
>
> Sub LaunchCaptureExpress()
> Dim WshShell As Object
> Dim oExec As Object
> Set WshShell = CreateObject("Wscript.Shell")
> Set oExec = WshShell.Exec("C:\Program Files\Capture
> Express\capexp.exe")
> DoEvents
> Application.Wait (Now + TimeValue("0:00:10"))
> oExec.Terminate
> Set WshShell = Nothing
> Set oExec = Nothing
> End Sub


Could you help?

Thanks a lot

[Leith Ross]

Hello Avi,

The WSH refers to Windows Scripting Host. You will need to add a reference to this library in your VBA project. On the VBA editor toolbar select "Tools" and the "References...". Look in the list for Windows Scripting Host and check it and click OK. Now the code will run.

Sincerely,
Leith Ross

[Tom Ogilvy]

Perhaps you can do something by using these articles and their links:

http://support.microsoft.com/kb/129796/EN-US/

http://support.microsoft.com/default...b;en-us;176391

http://support.microsoft.com/default...b;en-us;129797

--
Regards,
Tom Ogilvy

"Avi" <[email protected]> wrote in message
news:[email protected]...
Hello,

I open an application via this code that works fine
Sub LaunchCaptureExpress()
Dim RetVal As Long
RetVal = Shell("C:\Program Files\Capture
Express\capexp.exe", vbNormalFocus)
End Sub

How do i close it???

I was given the following solution by "chijanzen", but i get an error
message " AciveX does'nt support object" that refers to "Set WshShell =
CreateObject("Wscript.Shell")"

close the Windows after 10 seconds
>
> Sub LaunchCaptureExpress()
> Dim WshShell As Object
> Dim oExec As Object
> Set WshShell = CreateObject("Wscript.Shell")
> Set oExec = WshShell.Exec("C:\Program Files\Capture
> Express\capexp.exe")
> DoEvents
> Application.Wait (Now + TimeValue("0:00:10"))
> oExec.Terminate
> Set WshShell = Nothing
> Set oExec = Nothing
> End Sub


Could you help?

Thanks a lot

[Tom Ogilvy]

Avi,
Here is an additional thought. if you run this

Sub ABC()
Dim WshShell as Object
set WshShell = CreateObject("Wscript_Tom.Shell")
End Sub
and get the same error message on the CreateObject line, then you don't have
the Windows Scripting Host Installed.

The message you cited isn't exactly the same as what I get, but it may be
you are using a non-english version of windows and you were posting a
translation of the message.

--
Regards,
Tom Oglvy

"Leith Ross" <[email protected]> wrote
in message news:[email protected]...
>
> Hello Avi,
>
> The WSH refers to *Windows Scripting Host*. You will need to add a
> reference to this library in your VBA project. On the VBA editor
> toolbar select "*Tools*" and the "*References...*". Look in the list
> for Windows Scripting Host and check it and click OK. Now the code will
> run.
>
> Sincerely,
> Leith Ross
>
>
> --
> Leith Ross
> ------------------------------------------------------------------------
> Leith Ross's Profile:
http://www.excelforum.com/member.php...o&userid=18465
> View this thread: http://www.excelforum.com/showthread...hreadid=480375
>

[Tom Ogilvy]

Also, see your first posting of this question. You have an answer from RB
Smissaert.

--
Regards,
Tom Ogilvy

"Tom Ogilvy" <[email protected]> wrote in message
news:[email protected]...
> Perhaps you can do something by using these articles and their links:
>
> http://support.microsoft.com/kb/129796/EN-US/
>
> http://support.microsoft.com/default...b;en-us;176391
>
> http://support.microsoft.com/default...b;en-us;129797
>
> --
> Regards,
> Tom Ogilvy
>
> "Avi" <[email protected]> wrote in message
> news:[email protected]...
> Hello,
>
> I open an application via this code that works fine
> Sub LaunchCaptureExpress()
> Dim RetVal As Long
> RetVal = Shell("C:\Program Files\Capture
> Express\capexp.exe", vbNormalFocus)
> End Sub
>
> How do i close it???
>
> I was given the following solution by "chijanzen", but i get an error
> message " AciveX does'nt support object" that refers to "Set WshShell =
> CreateObject("Wscript.Shell")"
>
> close the Windows after 10 seconds
> >
> > Sub LaunchCaptureExpress()
> > Dim WshShell As Object
> > Dim oExec As Object
> > Set WshShell = CreateObject("Wscript.Shell")
> > Set oExec = WshShell.Exec("C:\Program Files\Capture
> > Express\capexp.exe")
> > DoEvents
> > Application.Wait (Now + TimeValue("0:00:10"))
> > oExec.Terminate
> > Set WshShell = Nothing
> > Set oExec = Nothing
> > End Sub
>
>
> Could you help?
>
> Thanks a lot
>
>
>
>
>
>

[Avi]

thanks a lot, Tom!

Article nb 2 did the work!!!!

Avi

Avi Benita 054-4660641 wwwAvi Benita 054-4660641 www.avibenita.com
"Tom Ogilvy" <[email protected]> wrote in message
news:[email protected]...
> Perhaps you can do something by using these articles and their links:
>
> http://support.microsoft.com/kb/129796/EN-US/
>
> http://support.microsoft.com/default...b;en-us;176391
>
> http://support.microsoft.com/default...b;en-us;129797
>
> --
> Regards,
> Tom Ogilvy
>
> "Avi" <[email protected]> wrote in message
> news:[email protected]...
> Hello,
>
> I open an application via this code that works fine
> Sub LaunchCaptureExpress()
> Dim RetVal As Long
> RetVal = Shell("C:\Program Files\Capture
> Express\capexp.exe", vbNormalFocus)
> End Sub
>
> How do i close it???
>
> I was given the following solution by "chijanzen", but i get an error
> message " AciveX does'nt support object" that refers to "Set WshShell =
> CreateObject("Wscript.Shell")"
>
> close the Windows after 10 seconds
>>
>> Sub LaunchCaptureExpress()
>> Dim WshShell As Object
>> Dim oExec As Object
>> Set WshShell = CreateObject("Wscript.Shell")
>> Set oExec = WshShell.Exec("C:\Program Files\Capture
>> Express\capexp.exe")
>> DoEvents
>> Application.Wait (Now + TimeValue("0:00:10"))
>> oExec.Terminate
>> Set WshShell = Nothing
>> Set oExec = Nothing
>> End Sub
>
>
> Could you help?
>
> Thanks a lot
>
>
>
>
>
>