Hallo,

ich möchte aus Access neue Excel-Mappe öffnen, in der Daten aus einer Abfrage angezeigt werden. Hier mein Code:

Private Sub Befehl0_Click()
    Dim ExcelApp As Excel.Application
    Dim MeinExcel As Excel.Workbook

    Set ExcelApp = CreateObject("Excel.Application")
    Set MeinExcel = ExcelApp.Workbooks.Add
    
    With ExcelApp.ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=C:\MeineDB.accdb" _
        , _
        ";Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:" _
        , _
        "Database Password="""";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Glo" _
        , _
        "bal Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=Fal" _
        , _
        "se;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Sup" _
        , "port Complex Data=False"), Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("MeineAbfrage")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = _
        "C:\MeineDB.accdb"
        .ListObject.DisplayName = "Tabelle_MeineDB.accdb"
        .Refresh BackgroundQuery:=False
    End With

    Set MeinExcel = Nothing
    Set ExcelApp = Nothing
End Sub

Jetzt zum Problem: Wenn ich die erstellte Excel-Mappe schließe (ohne zu speichern), wird die Anwendung nicht richtig beendet, da sie im Taskmanager-Prozesse angezeigt wird.
Was fehlt in meinem Code?

Vielen Dank im Voraus