Eine Arbeitsmappe, schließen falls geöffnet

Ich möchte einen error handler zu behandeln schließen einer Excel-Arbeitsmappe, die nicht geöffnet ist.

Versuchte ich folgenden code.

If Workbooks("Combo.xlsx").IsOpen Then 
     Workbooks("Combo.xlsx").Close SaveChanges:=False 
Else: Resume Next 
MsgBox "Error: (" & Err.Number & ") " & Err.Description, vbCritical 
End If

Dieser gibt mir eine Fehlermeldung:

Laufzeit-Fehler: 9 Index außerhalb des gültigen Bereichs.

  • Fragen ohne code dazu neigen, hier geschlossen. Welchen code hast du versucht und welche Probleme hast du laufen?
  • Ich habe versucht mit folgenden code vor kurzem. Wenn Workbooks("Combo.xlsx").IsOpen Dann Workbooks("Combo.xlsx").Close SaveChanges:=False Else: Resume Next MsgBox "Fehler: (" & Err.Anzahl & ") " & Err.Description, vbCritical End If Das gibt mir eine Fehlermeldung: Run-time-Fehler: 9 Index außerhalb des gültigen Bereichs. Bin sehr neu in VBA & nicht sicher, ob ich die richtige Erklärung noch nicht verstehen, was falsch läuft. Jede Hilfe wäre wirklich zu schätzen.
InformationsquelleAutor DPA | 2015-01-27
  1. 2

    Alles, was Sie wirklich brauchen, ist

    On Error Resume Next
Workbooks("Combo.xlsx").Close SaveChanges:=False
On Error Goto 0

    Können Sie den Fehler ignorieren, wenn es keine Arbeitsmappe geöffnet, die mit diesem Namen.

    • Danke Tim, habe Versucht mit dem code, stieß dabei aber auf gleiche Fehlermeldung: Subscript out of Range & während ich Debuggen, markieren Sie folgenden code:---- If Workbooks("Combo.xlsx").IsOpen Then ----- Sieht aus wie es geben einen Fehler aus, Wenn die Arbeitsmappe id Nicht geöffnet. Ich möchte, überspringen Sie diese codes, wenn die Datei bereits geöffnet ist, & gehen, um die nächsten Schritte ohne Angabe einer Fehlermeldung. Danke.
    • Was ist deine Einstellung im VB-editor unter Extras>Optionen>Allgemeine>Fehlerbehebung ? Stellen Sie sicher, es ist nicht "Break on all errors" oder die " On Error Resume Next kann nicht seine Aufgabe hier.
    InformationsquelleAutor Tim Williams
  2. 0

    Ich hatte das gleiche problem, dass die On Error Resume Next schien nicht für diese Arbeit. Meine Einstellungen sind nur zu brechen auf unbehandelte Fehler also ich kann nicht verstehen, warum es hält, zu brechen, wenn Sie versuchen zu schließen.

    Jedenfalls machte ich diese einfache Lösung Unterprogramm aufrufen, wenn das schließen der Arbeitsmappe:

    Private Sub closeWorkbookIfOpen(wb As Workbook)
    On Error GoTo NotOpen

    wb.Close

NotOpen:
End Sub

    Nicht sicher, warum das Resume Next funktioniert nicht, aber das scheint, den trick zu tun!

    InformationsquelleAutor Petter
Schreibe einen Kommentar