Excel process not terminating

[mts176]

I have written an application in VB 6.0, in this application I open up an Excel file, manipulate it and save it off as another name. I then reopen the original excel file. When I go to the task manager after closing out of the application, which closes the excel file, there is sometimes an excel process still running. If I do not manually end the processes I will eventually run out of virtual memory.

Question:
How do I absolutely ensure that the excel program closes totally.

 

[CasperTFG]

How do you call the Excel Process... if it returns a PID (Process ID) then you can save the PID and when your done kill the process by the PID. Craig, mailto:sander@cogeco.ca

Si hoc legere scis, nimis eruditionis habes

 

[1127]

Close the Excel application and then set the Excel object to nothing.

xlsApp.Close

Set xlsApp=nothing

Tibi

 

[mts176]

Here are my all of my subroutines dealing with opening and closing Excel

Public Sub CloseWorkbook()
On Error Resume Next
xlApp.Application.DisplayAlerts = False
xlApp.ActiveWorkbook.Close
End Sub
Public Sub OpenWorkbook()
On Error Resume Next
xlApp.Workbooks.Open ("C:\QuenchTest\Configuration\QuenchTest.xls&quot
xlApp.Visible = False
End Sub
Public Sub CloseExcelApp()
On Error Resume Next
xlApp.Application.DisplayAlerts = False
xlBook.Close
xlApp.Quit
Call ReleaseMem

End Sub
Public Sub ReleaseMem()
On Error Resume Next
Set xlBook = Nothing
Set xlApp = Nothing

'Stick stuff for destroying any global objects in here.
Dim frm As Form
'This loops through all your forms and unloads each one.
For Each frm In Forms
Unload frm
Next frm

End Sub
Public Sub OpenExcelApp()

MsgForm.Show
MsgForm.Refresh
MsgForm.MsgTextforOperator.Caption = "Opening Application"

Set xlApp = CreateObject("Excel.Application&quot
("C:\QuenchTest\Configuration\QuenchTest.xls&quot
xlApp.Workbooks.Open ("C:\program files\Keithley Instruments\ExceLINX\ExceLINX2.xla&quot
("C:\QuenchTest\Configuration\StandardQuench.xls&quot
xlApp.Workbooks.Open ("C:\QuenchTest\Configuration\QuenchTest.xls&quot
xlApp.Workbooks("QuenchTest.xls&quot.Activate
xlApp.Visible = False
End Sub


The ExceLINX2.xla is an excel add-on, this must run for my program to function properly.

 

[Swi]

CraigSander, do you have a quick example of killing the process by the PID? Swi