killing a excel process from vb

[ravindar thati]

dear friends, i am using ms access 2003.

i wanted to export data from access table to excel table.
so i have followed this


Dim db As Database
Dim ea As Excel.Application
Dim rs As Recordset
Dim j As String


Set ea = New Excel.Application
Set db = CurrentDb
ea.Workbooks.Add
ea.Visible = True
Set rs = db.OpenRecordset("SELECT Indicator_Values.year as yea,
Indicator_Values.[Energy use per $1 GDP (PPP)(converted unit)]as eng
FROM Indicator_Values;")
If rs.RecordCount > 0 Then
rs.GetRows
rs.MoveFirst


For i = 1 To rs.RecordCount
j = rs!Yea
k = rs!eng
ea.ActiveSheet.Cells(i, 1).Value = rs!Yea
ea.ActiveSheet.Cells(i, 2).Value = rs!eng
rs.MoveNext


Next
End If
ea.Workbooks.Close
ea.Quit
Set ea = Nothing


i worked out very well this code. i got what output i want.
but the problem here is even if i close the excel window, i see some
excel processes running in the back ground( i viewed it through task
manager).


indeed i have closed the excel window with the code


ea.Quit
set ea=Nothing


even then why the excel process still running in the back ground?
how to kill that process?

 

[Guest]

Create you Excel as an Object this should clear the problem.

So:

Dim ea as Object
Set ea = CreateObject("Excel.application")

also set you workbook and sheet as an object...

hth

 

[Perry]

This is the problem in yr code

ea.Workbooks.Add
ea.Workbooks.Close

Try to use object orientated coding like:
(whereby "ea" is the object variable pointing to the Excel application)

Dim wb as excel.workbook
set wb = ea.workbooks.add
'the rest of your code
wb.close
ea.quit: set ea = nothing

Always use pointers to objects (and child objects) and eliminate these
accordingly like examplified above.

--
Krgrds,
Perry

System:
Vista/Office Ultimate
VS2005/VSTO2005 SE

dear friends, i am using ms access 2003.

i wanted to export data from access table to excel table.
so i have followed this


Dim db As Database
Dim ea As Excel.Application
Dim rs As Recordset
Dim j As String


Set ea = New Excel.Application
Set db = CurrentDb
ea.Workbooks.Add
ea.Visible = True
Set rs = db.OpenRecordset("SELECT Indicator_Values.year as yea,
Indicator_Values.[Energy use per $1 GDP (PPP)(converted unit)]as eng
FROM Indicator_Values;")
If rs.RecordCount > 0 Then
rs.GetRows
rs.MoveFirst


For i = 1 To rs.RecordCount
j = rs!Yea
k = rs!eng
ea.ActiveSheet.Cells(i, 1).Value = rs!Yea
ea.ActiveSheet.Cells(i, 2).Value = rs!eng
rs.MoveNext


Next
End If
ea.Workbooks.Close
ea.Quit
Set ea = Nothing


i worked out very well this code. i got what output i want.
but the problem here is even if i close the excel window, i see some
excel processes running in the back ground( i viewed it through task
manager).


indeed i have closed the excel window with the code


ea.Quit
set ea=Nothing


even then why the excel process still running in the back ground?
how to kill that process?