Closing an Application

[sgfromny]

Hi All,

I have this code in an access database form, Problem is each time i run it, it loads an instance of Excel in the background, Hence I can 10 Excels running at once.

How Do I remove the Current Instance of excel at the end of the code on my form?

Dim objXl As Excel.Application
Dim objWkb As Excel.Workbook
Dim objSht As Excel.Worksheet
Set objXl = New Excel.Application
With objXl
.Visible = False
Set objWkb = .Workbooks.Open("f:\forecast\proposal\" & Me.Proposal & ".xls&quot
.Range("Document&quot.Value = "0" & Me.Job_Number & "J"
.Range("became&quot.Value = Date
.Range("propno&quot.Value = Me.Proposal
.Range("H4&quot.Value = "PO" & Me.Customer_PO
objWkb.SaveAs ("f:\forecast\proposal\" & Me.Proposal & ".xls&quot
objWkb.PrintOut
objWkb.Close
End With

 

[TonyJollans]

Hi sgfromny,

When you are done with it, add the line:

objXl.Quit

It would also be good practice to add

Set objSht = Nothing
Set objWkb = Nothing
Set objXl = Nothing

Enjoy,
Tony