Closing Excel Instance

[xRoachx]

In a module, I open an excel instance, do some operations, then close the
excel instance. At least, that's the intent of the module but I cannot get
the excel instance to close. Below are the relevant pieces of code. I would
like to know if I reference the objects correctly and if this is the source
of the problem. Also, I know I shouldn't use ActiveWorkbook, etc., but I am
the only user of the db so I figured I could manage it.

Dim objExcel As Excel.Application
Dim objWS As Excel.Worksheet
Dim objWB As Excel.Workbook

Set objExcel = GetObject(, "Excel.Application")

If Err.Number <> 0 Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
End If

Set objWB = objExcel.ActiveWorkbook
Set objWS = objWB.Sheets(1)

*** Code Here ****

objExcel.Quit
Set objWS = Nothing
Set objWB = Nothing
Set objExcel = Nothing

 

[Dave Patrick]

This article may help.

http://support.microsoft.com/default.aspx?scid=kb;[LN];187745

--
Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

:
| In a module, I open an excel instance, do some operations, then close the
| excel instance. At least, that's the intent of the module but I cannot
get
| the excel instance to close. Below are the relevant pieces of code. I
would
| like to know if I reference the objects correctly and if this is the
source
| of the problem. Also, I know I shouldn't use ActiveWorkbook, etc., but I
am
| the only user of the db so I figured I could manage it.
|
| Dim objExcel As Excel.Application
| Dim objWS As Excel.Worksheet
| Dim objWB As Excel.Workbook
|
| Set objExcel = GetObject(, "Excel.Application")
|
| If Err.Number <> 0 Then
| Err.Clear
| Set objExcel = CreateObject("Excel.Application")
| End If
|
| Set objWB = objExcel.ActiveWorkbook
| Set objWS = objWB.Sheets(1)
|
| *** Code Here ****
|
| objExcel.Quit
| Set objWS = Nothing
| Set objWB = Nothing
| Set objExcel = Nothing
|
|

 

[xRoachx]

Thx for the reply but that doesn't help. I forgot to mention that I am using
Office 2003.

 

[Dave Patrick]

See if this works for you.

Dim oExcel As Object, oSheet As Object
Dim running As Boolean
running = False
If IsExecuting("excel.exe") = True Then
Set oExcel = GetObject(, "Excel.Application")
running = True
Else
Set oExcel = CreateObject("Excel.Application")
End If
oExcel.Workbooks.Open "C:\Data\Excel\Coal_Plants_TPH_Graphs.xls"
'Do some stuff here
oExcel.ActiveWorkbook.Close True
If running = False Then
oExcel.Quit
End If
Set oSheet = Nothing
Set oExcel = Nothing

Public Function IsExecuting(sProc)
Dim list As Object
Set list = GetObject("winmgmts:").ExecQuery( _
"select * from win32_process where name='" & sProc & "'")
If list.Count > 0 Then IsExecuting = True
End Function



--
Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

:
| Thx for the reply but that doesn't help. I forgot to mention that I am
using
| Office 2003.