Office: (Office 2019) Excel automatisch per VBA schliessen ?

Hallo liebes Team,

ich habe folgende Code geschrieben, wo ich auf Knopfdruck eine Excel Auswertung machen kann.

Private Sub Befehl114_Click()
On Error GoTo Err_Meldung
Dim DocName As String
DocName = "Datenauswertung"
DoCmd.OpenForm "Hinweis"
DoCmd.OpenQuery "Datenauswertung", acViewNormal
DoCmd.RunCommand acCmdOutputToExcel
DoCmd.Close acForm, "Hinweis", acSaveYes
DoCmd.Close acQuery, "Datenauswertung"
CurrentDb.Execute "INSERT INTO tbl_Anzahl ( Buttonname, Datum ) SELECT '" & DocName & "', Now;", dbFailOnError

Exit_Befehl114_Click:
Exit Sub

Err_Meldung:
' MsgBox "Eine Excel Datei mit dieser Abfrage ist noch offen. Bitte Datei abspeichern oder schließen. "
DoCmd.Close acQuery, "Datenauswertung"
DoCmd.Close acForm, "Hinweis", acSaveYes
Resume Exit_Befehl114_Click

End Sub

Welchen Code muss ich nehmen, damit ich nach einer "Err_Meldung:" die Excel Datei automatisch schliessen kann ?


Danke und Gruß, Marsi

 

Folgende Funktion sollte klappen:

Code:

Public Function SchliesseExcel()
Dim excelsheet As Object
Set excelsheet = GetObject("c:\MeinExcelSheet.XLS")
excelsheet.Application.Quit
End Function