VBA Application.Quit

Sub Exit_Workbook(control As IRibbonControl) Dim ExcelApp As Object Set ExcelApp = CreateObject("Excel.Application") MsgBox "Mappe " & vbCrLf & vbCrLf & ThisWorkbook.Name & vbCrLf & vbCrLf & " schließen?", _ vbOKOnly + vbInformation, "Alles schließen" Application.EnableEvents = False If Application.Workbooks.Count > 1 Then Calculate ActiveWorkbook.Save ActiveWorkbook.Close Exit Sub ElseIf Application.Workbooks.Count = 1 Then Calculate ActiveWorkbook.Save ActiveWorkbook.Close ExcelApp.Quit End If ExcelApp = Nothing 'Freigabe des Speichers End 'ThisWorkbook.Close Application.EnableEvents = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin!
Ich habe mal noch ein paar Fragen zum Code.
1. Du fragst in der MsgBox, ob die Mappe geschlossen werden soll, gibst aber nur einen Button zum Bestätige!? Was passiert, wenn mir da einfällt ne, nicht speichern? Das solltest du noch ändern.
2. Das Problem mit dem Schließen entsteht m.E. daraus, dass du am Anfang eine neue Excel Instanz öffnest. Jetzt die Frage wozu? Machst du mit der noch was, was für unsere Testzwecke nicht im Code stand?
Gibt jetzt mind. 2 Möglichkeiten (teilweise ähnlich), dein Problem zu beheben.
1. Nimm die zusätzliche Instanz raus und dann wie Onur schrieb nur das Application.quit. Also so:

Sub Exit_Workbook(control As IRibbonControl)
Dim ExcelApp As Object
'Set ExcelApp = CreateObject("Excel.Application")
MsgBox "Mappe " & vbCrLf & vbCrLf & ThisWorkbook.Name & vbCrLf & vbCrLf & " schließen?", _
vbOKOnly + vbInformation, "Alles schließen"
Application.EnableEvents = False
If Application.Workbooks.Count > 1 Then
Calculate
ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub
ElseIf Application.Workbooks.Count = 1 Then
Calculate
ActiveWorkbook.Save
Application.Quit
End If
'ThisWorkbook.Close
Application.EnableEvents = True
End Sub

2. Variante falls du die andere INstanz brauchst.
Dabei wird die Mappe nicht geschlossen (Damit sollte der Code beendet sein) sondern die neue Instanz zugemacht und dann die andere Instanz geholt und geschlossen.

Sub Exit_Workbook(control As IRibbonControl)
Dim ExcelApp As Object
Set ExcelApp = CreateObject("Excel.Application")
MsgBox "Mappe " & vbCrLf & vbCrLf & ThisWorkbook.Name & vbCrLf & vbCrLf & " schließen?", _
vbOKOnly + vbInformation, "Alles schließen"
Application.EnableEvents = False
If Application.Workbooks.Count > 1 Then
Calculate
ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub
ElseIf Application.Workbooks.Count = 1 Then
Calculate
ActiveWorkbook.Save
ExcelApp.Quit
End If
'ThisWorkbook.Close
Application.quit
Application.EnableEvents = True
End Sub

Zusätzlich könntest du dir (falls noch weitere Instanzen voliegen) diese holen und ebenfalls schließen. geht mit.

Set ExcelApp = GetObject(, "Excel.Application")
ExcelApp.Quit

Da du 2 Instanzen hattest, hat Ecxel beim SClie´ßen der Mappe den Code beendet und da noch eine INstanz da war die Anwendung nicht geschlossen. Da du eh gespeichert hast, das wb.close in dem Fall rauslassen.
Konnte es jetzt aber nicht aus dem Rippon testen, sondern als eigene freie Sub.
VG

Hallo Matthias.
Vielen Dank für deine Ausführlichkeit.
zu 1:
Ich habe die MsgBox nur grob erstellt, um das Verhalten des Codes zu sehen. Natürlich möchte ich sie dann noch anpassen. Gegebenenfalls wie von dir beschrieben, entweder ohne Abfrage gleich speichern und schließen (weiß noch nicht, was besser ist) oder mit Auswahl, ob Schließen ohne Speichern oder Abbrechen (was besser ist).
In erster Linie ging es mir aber nur um das Schließen der Instanz.
Und da komme ich zu Punkt 2:
Ich habe den "zweiten Instanz Code" als Möglichkeit eingefügt, weil ich im Netz schon alle Möglichkeiten ausprobiert habe und zu keinem Ergebnis gekommen bin. Ich habe vorher auch ohne die zweite Instanz keinen Erfolg gehabt. Wenn ich alle Beiträge in den verschiedenen Foren lese, glaube ich langsam, dass es an mir oder an meinem PC und Excel liegt. Ich tippe auch Erstes.
Also das Problem liegt bei mir am Schließen der Instanz. Ich bekomme einfach nicht Schließen von Excel hin.
Mit deinem Vorschlag bekomme ich jetzt die Fehlermeldung

Laufzeitfehler 450: Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft

Und so bin ich der Sache nachgegangen und habe etwas gefunden. Ich wollte gern den X-Button von _ Excel mit einer Meldung blockieren und habe in "DieseArbeitsmappe" im BeforeClose-Event


MsgBox "Schließen in der Symbolleiste möglich!", vbOKOnly + vbQuestion, "Meldung anzeigen"
Cancel = True

eingefügt. Und das kollidierte wahrscheinlich.
Wie kann ich erreichen, dass beide Codes zusammenarbeiten?
Hier nochmal die Beispielmappe mit deiner Version. Ribbon ist im Register "Erfassungsbelege" .
https://www.herber.de/bbs/user/135371.xlsm
LG
Peer

Sub Exit_Workbook(control As IRibbonControl) Dim ExcelApp As Object, i As Long Set ExcelApp = CreateObject("Excel.Application") MsgBox "Mappe " & vbCrLf & vbCrLf & ThisWorkbook.Name & vbCrLf & vbCrLf & "schließen?", _ vbOKOnly + vbInformation, "Alles schließen" Application.EnableEvents = False If Application.Workbooks.Count > 1 Then Calculate ActiveWorkbook.Save ActiveWorkbook.Close Exit Sub ElseIf Application.Workbooks.Count = 1 Then Calculate ActiveWorkbook.Save 'ActiveWorkbook.Close ExcelApp.Quit End If Application.Quit 'ThisWorkbook.Close Application.EnableEvents = True 'ExcelApp = Nothing 'Freigabe des Speichers End Sub

Option Explicit Public schliessmode As String Sub Exit_Workbook(control As IRibbonControl) Dim ExcelApp As Object, i As Long Set ExcelApp = CreateObject("Excel.Application") MsgBox "Mappe " & vbCrLf & vbCrLf & ThisWorkbook.Name & vbCrLf & vbCrLf & "schließen?", _ vbOKOnly + vbInformation, "Alles schließen" Application.EnableEvents = False If Application.Workbooks.Count > 1 Then Calculate ActiveWorkbook.Save schliessmode = "ja" ActiveWorkbook.Close Exit Sub ElseIf Application.Workbooks.Count = 1 Then Calculate ActiveWorkbook.Save 'ActiveWorkbook.Close schliessmode = "ja" ExcelApp.Quit End If Application.Quit 'ThisWorkbook.Close Application.EnableEvents = True 'ExcelApp = Nothing 'Freigabe des Speichers End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) ' If Not Saved Then ' Select Case MsgBox("Sollen Ihre Änderungen in '" & name & _ ' "' gespeichert werden", vbExclamation Or vbYesNoCancel, "Datei schließen") ' Case vbYes ' Save ' Case vbNo ' Saved = True ' Case vbCancel ' Cancel = True ' End Select ' End If If schliessmode "ja" Then MsgBox "Schließen nur in der Symbolleiste möglich!", vbOKOnly + vbQuestion, "Meldung _ anzeigen" Cancel = True Else Call DeleteCommandBar Cancel = False End If End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread