'Im Modul deklariert
Private xlsApplication As Excel.Application
Private xlsWorkbook As Workbook
Private xlsWorksheet As Worksheet
 
Public Sub ExcelExport()
   Set xlsApplication = CreateObject("Excel.Application")
   Set xlsWorkbook = xlsApplication.Workbooks.Add
   Set xlsWorksheet = xlsWorkbook.Worksheets(1)
 
   'So schließe ich es wieder:
   xlsWorkbook.Close True, strFileName
   xlsApplication.Quit
   Set xlsApplication = Nothing
End Sub