Excel won't Close

[Guest]

I use the following code to open a workbook and run three macros in an excel
workbook:

Dim ObjExcel As Object 'Excel.Application
Set ObjExcel = New Excel.Application
ObjExcel.Visible = True
AppActivate "Microsoft Excel"
Workbooks.Open strPath & "Protocols-Cleanup.xls"
ObjExcel.Run "Protocols_Filters"
'ObjExcel.Run "Builtin_Filters"
'ObjExcel.Run "Filters_CFGFile"
ObjExcel.Quit
Set ObjExcel = Nothing

Unfortunately, the OS doesn't let go of Excel. Access completes all it
work, but Excel is still active when I look in the Task Manager. How can I
get it to close.

BTW I've tried this on a Windows 2000 and XP PC using Office 2000 or Office
XP. Neither let go of Excel.

 

[Ken Snell [MVP]]

Change this line:
Workbooks.Open strPath & "Protocols-Cleanup.xls"

to this:
ObjExcel.Workbooks.Open strPath & "Protocols-Cleanup.xls"

When you don't use the object you created for EXCEL, VBA creates a new
object to use.

 

[Guest]

That did it. Thank you very much!

Change this line:
Workbooks.Open strPath & "Protocols-Cleanup.xls"

to this:
ObjExcel.Workbooks.Open strPath & "Protocols-Cleanup.xls"

When you don't use the object you created for EXCEL, VBA creates a new
object to use.

 

[Guest]

Hi,
I'm also having problems with Excel not closing, so I tried using your code
here. But Access doesn't like Set ObjExcel = New Excel.Application
It says the user-defined type is not defined. Any suggestions? Thanks.

 

[Ken Snell [MVP]]

Post all your code and let's see what you have.

 

[Van T. Dinh]

Most likely, Microsoft Excel displays a dialog box asking whether you want
to save the changes but you can't see this MsgBox.

Check the Remarks in the Excel VB Help on the Quit Method ...