VBA - Excel speichern und schließen (Laufzeitfehler 91)

Sub CopyToExcel()

    Dim strMainFolder As String



    Application.ScreenUpdating = False

    Set xlApp = CreateObject("Excel.Application")

    xlApp.Visible = False

    xlApp.ScreenUpdating = False



    Set xlMappe = xlApp.Workbooks.Open(strMainFolder)

    Set xlBlatt = xlMappe.Sheets("Tabelle")



    xlBlatt.Range("B15").Value = "Meine Daten"



    xlMappe.Close SaveChanges:=True

    Application.ScreenUpdating = True

    Set xlBlatt = Nothing

    Set xlMappe = Nothing

    Set xlApp = Nothing

    xlApp.Application.Quit

End Sub