I find that using the "Active" references in EXCEL automation often leads to
the creation of additional objects in EXCEL that are not closed when you try
to quit EXCEL. Use explicit references to Workbook and Worksheet objects,
etc.
Public Function CreateInputSheet(scriptName As String, ParamArray
aFields() As Variant) As Boolean
Dim objExcel As New Excel.Application
' *** Code Snipped ***
objExcel.Workbook(1).SaveAs "c:\data\myexceltest1.xls"
objExcel.Workbook(1).Close
objExcel.Quit
Set objExcel = Nothing
End Function
Or use an object to create the new workbook:
Dim objWBook As Object
..
..
..
Set objWBook = objExcel.Workbooks.Add
..
..
objWBook.SaveAs "c:\data\myexceltest1.xls"
objWBook.Close
Set objWBook = Nothing
objExcel.Quit
Set objExcel = Nothing
--
Ken Snell
<MS ACCESS MVP>
<u7***@hotmail.com> wrote in message
news:11*********************@z14g2000cwz.googlegro ups.com...
Hi,
I'm currently building a function in Access that creates an Excel
spreadsheet but it doesn't look like the Excel object is being
destroyed correctly as the Excel module is still showing in the task
manager and I'm unable to open the spreadsheet without first closing
down Access. Can anyone help!?
Dave
Public Function CreateInputSheet(scriptName As String, ParamArray
aFields() As Variant) As Boolean
Dim objExcel As New Excel.Application
' *** Code Snipped ***
objExcel.ActiveWorkbook.SaveAs "c:\data\myexceltest1.xls"
objExcel.ActiveWorkbook.Close
objExcel.Quit
Set objExcel = Nothing
End Function
