MS ACCESS 2010 VBA Excel Close

Question

I am using Window 7 SP1, and MS Office 2010. I am running queries in Access 2010, and writing the results in a report to Excel 2010, and noted that the instance of Excel does not terminate from the process listing. To make sure that it is not my code, I
have stripped it down basics.
1. The following code opens and terminates Excel as expected:
  Public Sub Test()
    Dim strRptDirPath As String: strRptDirPath = "C:\Projects\WeeklyAlarms\Report\"
    Dim xlApp As Object,
'   Dim xlWkBk As Object
'   Dim xlWkSht As Object
    Dim strRptTl As String: strRptTl = "Report Template.xls"
    Dim strRptSht As String: strRptSht = "Rpt"
    Set xlApp = CreateObject("Excel.Application")
         xlApp.Visible = False
'    Set xlWkBk = xlApp.Workbooks.Open(strRptDir & strRptTl)
'    Set xlWkSht = xlWkBk.Worksheets(strRptSht)
'        xlWkSht.Cells(1, 1).Value = "TEST 1"
'        xlWkSht.Cells(2, 2).Value = "TEST 2"
'        xlWkSht.Cells(3, 3).Value = "TEST 3"
'        xlWkBk.SaveAs (strRptDirPath & "TESTING.xls")
'        xlWkBk.Close True
        xlApp.Quit
'    Set xlWkSht = Nothing
'    Set xlWkBk = Nothing
    Set xlApp = Nothing
End Sub
2. However, if i reference the workbook, the Excel process instance does not terminate. Searches through talk topics make references to the process terminating after a timeout 'ping' a period after Access closes - this is not the case here.
Public Sub Test()
    Dim strRptDirPath As String: strRptDirPath = "C:\Projects\WeeklyAlarms\Report\"
    Dim xlApp As Object,
   Dim xlWkBk As Object
'   Dim xlWkSht As Object
    Dim strRptTl As String: strRptTl = "Report Template.xls"
    Dim strRptSht As String: strRptSht = "Rpt"
    Set xlApp = CreateObject("Excel.Application")
         xlApp.Visible = False
    Set xlWkBk = xlApp.Workbooks.Open(strRptDir & strRptTl)
'    Set xlWkSht = xlWkBk.Worksheets(strRptSht)
'        xlWkSht.Cells(1, 1).Value = "TEST 1"
'        xlWkSht.Cells(2, 2).Value = "TEST 2"
'        xlWkSht.Cells(3, 3).Value = "TEST 3"
        xlWkBk.SaveAs (strRptDirPath & "TESTING.xls")
        xlWkBk.Close True
        xlApp.Quit
'   Set xlWkSht = Nothing
    Set xlWkBk = Nothing
    Set xlApp = Nothing
End Sub
I have un-checked Microsoft Excel 14.0 Object library reference. I don't think i have made any global reference calls. I cant see what I am doing incorrectly.

Answer 1

​Hi totally,
I made a simple test with your two methods, and I could not reproduce your issue. Both of the methods have open the excel process and terminated after the methods. I am wondering when you checked the excel process. Before you test the method, if the excel
process has been started up, then your method would open another excel process and would terminate the excel process which was started up by the method. The original excel process would not be terminated.
I think you could terminate all of the excel process before testing your methods, and when debugging the methods, open the task manager to check whether the excel process would be created and terminated.
Best Regards,
Edward
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click HERE to participate the survey.