Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do i close i an application by VBA? (Repost)
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do i close i an application by VBA? (Repost)
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do i close i an application by VBA? (Repost)
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" wrote in message ... 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do i close i an application by VBA? (Repost)
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" wrote in message ... 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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do i close i an application by VBA? (Repost)
Also, see your first posting of this question. You have an answer from RB
Smissaert. -- Regards, Tom Ogilvy "Tom Ogilvy" wrote in message ... 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" wrote in message ... 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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do i close i an application by VBA? (Repost)
thanks a lot, Tom!
Article nb 2 did the work!!!! Avi Avi Benita 054-4660641 wwwAvi Benita 054-4660641 www.avibenita.com "Tom Ogilvy" wrote in message ... 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" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to Close an application? | Excel Programming | |||
Repost Excel Crashes on Workbook close!! | Excel Programming | |||
Close the other application | Excel Programming | |||
macro to close excel application other than application.quit | Excel Programming | |||
Application.Close | Excel Programming |