Процесс Excel остался после закрытия экземпляра Excel, созданного Access

Question

Я использую приведенный ниже код для экспорта оператора SQL из Access в Excel: -

Dim myrs        As DAO.Recordset ' Create a recordset to hold the data
Dim myExcel     As New Excel.Application 
Dim mySheet     As Excel.Worksheet

Set mySheet = myExcel.Workbooks.Add(1).Worksheets(1) 
Set myrs = CurrentDb.OpenRecordset("select...") ' 

With mySheet
    .Range("A2").CopyFromRecordset myrs
End With

myExcel.Visible = True
myExcel.WindowState = xlMaximized

Set mySheet = Nothing
Set myExcel = Nothing

Это все работает отлично. Однако когда я закрываю Excel, процесс Excel остается открытым. Есть ли способ предотвратить это?

Answer 1

Попробуйте это - у меня это работает:

Dim myrs        As DAO.Recordset ' Create a recordset to hold the data
Dim myExcel     As New Excel.Application
Dim myBook      As Excel.Workbook
Dim mySheet     As Excel.Worksheet

Set myBook = myExcel.Workbooks.Add(1)
Set mySheet = myBook.Worksheets(1)
Set myrs = CurrentDb.OpenRecordset("select...") '

With mySheet
    .Range("A2").CopyFromRecordset myrs
End With

myExcel.Visible = True
myExcel.WindowState = xlMaximized

Экземпляр Excel закрывается, когда Excel закрывается вручную.