ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Is it possible to Shell and remove Excel from memory? (https://www.excelbanter.com/excel-discussion-misc-queries/93239-possible-shell-remove-excel-memory.html)

alainB June 10th 06 01:09 PM

Is it possible to Shell and remove Excel from memory?
 

Hi,

Here is my code for sorting my phone database:

Sub Sort1()
Range("A1").Select
Selection.Sort Key1:=Range("A2"), _
Order1:=xlAscending, Key2:=Range("B2"), _
Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

ActiveWorkbook.Save
SendKeys "%{F4}"
s$ = Shell("C:\Documents and Settings\Alain\Bureau\ _
MyDialer.exe", vbNormalFocus)
End Sub

After editing, sorting and saving my database, I want to run my Dialer.
It is working fine except that Excell stay in memory. I can see that on
the Task Manager.

Is there a way to remove it from memory after saving? I use Excel 97.

Thanks!

Alain


--
alainB
------------------------------------------------------------------------
alainB's Profile: http://www.excelforum.com/member.php...fo&userid=8367
View this thread: http://www.excelforum.com/showthread...hreadid=550622


Gary''s Student June 10th 06 02:04 PM

Is it possible to Shell and remove Excel from memory?
 
Enter and run:

Sub Macro1()
ActiveWorkbook.Save
Application.Quit
End Sub

--
Gary's Student


"alainB" wrote:


Hi,

Here is my code for sorting my phone database:

Sub Sort1()
Range("A1").Select
Selection.Sort Key1:=Range("A2"), _
Order1:=xlAscending, Key2:=Range("B2"), _
Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

ActiveWorkbook.Save
SendKeys "%{F4}"
s$ = Shell("C:\Documents and Settings\Alain\Bureau\ _
MyDialer.exe", vbNormalFocus)
End Sub

After editing, sorting and saving my database, I want to run my Dialer.
It is working fine except that Excell stay in memory. I can see that on
the Task Manager.

Is there a way to remove it from memory after saving? I use Excel 97.

Thanks!

Alain


--
alainB
------------------------------------------------------------------------
alainB's Profile: http://www.excelforum.com/member.php...fo&userid=8367
View this thread: http://www.excelforum.com/showthread...hreadid=550622



alainB June 10th 06 08:30 PM

Is it possible to Shell and remove Excel from memory?
 

Yes, Application.Quit! Should work but it is not in my code. Excel is
not quitting.

Anyway, I found a way to do it. Instead of running my dialer from the
Shell directly, I shell to a Batch file that call my dialer. In that
case, Application.Quit is working fine.

Alain


--
alainB
------------------------------------------------------------------------
alainB's Profile: http://www.excelforum.com/member.php...fo&userid=8367
View this thread: http://www.excelforum.com/showthread...hreadid=550622


Sriram August 2nd 06 04:16 PM

Is it possible to Shell and remove Excel from memory?
 
Alain

Try this

Try

....

Finally
NAR(m_objSheet)
m_objSheet = Nothing
NAR(objWorkbook) ' This is required - MS Excel has an inherent bug.
objWorkbook = Nothing
objExcel.Quit()
NAR(objExcel)
objExcel = Nothing
End Try
....

Private Sub NAR(ByVal objExcelRelated As Object)
Try

System.Runtime.InteropServices.Marshal.ReleaseComO bject(objExcelRelated)
Catch
Finally
objExcelRelated = Nothing
End Try
End Sub



"alainB" wrote:


Yes, Application.Quit! Should work but it is not in my code. Excel is
not quitting.

Anyway, I found a way to do it. Instead of running my dialer from the
Shell directly, I shell to a Batch file that call my dialer. In that
case, Application.Quit is working fine.

Alain


--
alainB
------------------------------------------------------------------------
alainB's Profile: http://www.excelforum.com/member.php...fo&userid=8367
View this thread: http://www.excelforum.com/showthread...hreadid=550622




All times are GMT +1. The time now is 03:06 PM.

Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
ExcelBanter.com