Note: The other languages of the website are Google-translated. Back to English

Wie kann schnell überprüft werden, ob eine Datei (Arbeitsmappe) in Excel geöffnet oder geschlossen ist?

Bei der täglichen Excel-Arbeit öffnen Sie mehrere Arbeitsmappen gleichzeitig zum Arbeiten. Manchmal können jedoch Hunderte von Arbeitsmappen Ihren Kopf durcheinander bringen, um sich daran zu erinnern, ob eine bestimmte Arbeitsmappe geöffnet oder geschlossen ist. Geben Sie die traditionelle Methode zum Überprüfen von Dateien nacheinander auf. Hier stelle ich Ihnen die Tricks vor, mit denen Sie schnell feststellen können, ob eine Arbeitsmappe geöffnet oder geschlossen ist.

Überprüfen Sie, ob eine Arbeitsmappe mit VBA geöffnet oder geschlossen ist

Überprüfen Sie, ob eine Arbeitsmappe mit Kutools for Excel geöffnet oder geschlossen ist gute Idee3


Überprüfen Sie, ob eine Arbeitsmappe mit VBA geöffnet oder geschlossen ist

Hier ist ein VBA-Code, den Sie ausführen können, um zu überprüfen, ob eine bestimmte Arbeitsmappe geöffnet oder geschlossen ist.

1. Drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.

2 Klicken Insert > Modul Kopieren Sie dann die VBA und fügen Sie sie in die neue ein Modul Fenster.

VBA: Überprüfen Sie, ob eine Arbeitsmappe geöffnet oder geschlossen ist

Function IsWorkBookOpen(Name As String) As Boolean
    Dim xWb As Workbook
    On Error Resume Next
    Set xWb = Application.Workbooks.Item(Name)
    IsWorkBookOpen = (Not xWb Is Nothing)
End Function

Sub Sample()
    Dim xRet As Boolean
    xRet = IsWorkBookOpen("combine.xlsx")
    If xRet Then
        MsgBox "The file is open", vbInformation, "Kutools for Excel"
    Else
        MsgBox "The file is not open", vbInformation, "Kutools for Excel"
    End If
End Sub

3. Und drücken Sie F5 Wenn Sie diese vba ausführen, wird ein Dialogfeld angezeigt, das Sie daran erinnert, dass die jeweilige Arbeitsmappe geöffnet ist oder nicht.
doc prüfen, ob eine Datei geöffnet ist 1     doc prüfen, ob eine Datei geöffnet ist 2

TIPP: In der obigen VBAkombinieren”Ist der Name der Arbeitsmappe, den Sie überprüfen möchten. Sie können ihn nach Bedarf verwenden.


Überprüfen Sie, ob eine Arbeitsmappe mit Kutools for Excel geöffnet oder geschlossen ist

Wenn Sie mit VBA nicht vertraut sind, können Sie überprüfen, ob eine Arbeitsmappe von geöffnet ist Kutools for Excelmit seinen Navigation Bereich, mit dem Sie alle geöffneten Arbeitsmappen in der Arbeitsmappenliste des Bereichs klar anzeigen können.

Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. 

Nachher kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1 Klicken Kutoolen > Navigation um den Navigationsbereich zu aktivieren. Siehe Screenshot:
doc prüfen, ob eine Datei geöffnet ist 3

2. Dann klick Arbeitsmappe & Blatt Schaltfläche, um den Bereich zu erweitern, zu dem Sie wechseln möchten Arbeitsmappe & Blatt Sektion. Und Sie können alle geöffneten Arbeitsmappen in der oberen Liste anzeigen. Siehe Screenshot:
doc prüfen, ob eine Datei geöffnet ist 4

Mit Navigation Im Bereich können Sie auch schnell zwischen den Arbeitsmappen oder Arbeitsblättern in der Liste wechseln.

Klicken Sie hier, um mehr über die Navigation zu erfahren.


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (5)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Super VBA, funktioniert super. Vielen Dank.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wow, super VBA, einfach und funktioniert. Vielen Dank :)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte nur sicherstellen, dass jeder weiß, dass die Funktion „IsWorkBookOpen“ nur feststellen kann, ob eine Arbeitsmappe in der aktuellen Instanz von Excel geöffnet ist. Wenn Sie mehrere Instanzen geöffnet haben, müssen Sie es auf jeder Instanz ausführen, um sicherzustellen, dass die Arbeitsmappe (nicht) geöffnet ist, indem Sie nur diesen Code verwenden.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke für deine Erinnerung.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich füge dies meinem Code hinzu, aber ich habe einige Probleme ...

Ich verwende Ihre Funktion, um zu überprüfen, ob eine Arbeitsmappe mit Informationen aus der ich bereits geöffnet bin oder nicht, wenn sie geöffnet ist, die Makro-msgbox den Benutzer auffordert, die Arbeitsmappe zu schließen und das Makro neu zu starten, bis hier alles ok, die Das Problem ist, dass nach dem Schließen der Arbeitsmappe und dem Neustart des Makros immer wieder angezeigt wird, dass die Arbeitsmappe geöffnet ist, obwohl dies nicht der Fall ist. Irgendwelche Tipps?


Code:


Unter Check_BKG()

Setze wa = Nichts

Confirmação = MsgBox("Deseja realizar a checagem de dados?", vbYesNo + vbExclamation, "Aviso Macro")
Wenn Confirmação = vbNo Then Exit Sub

'-------------------------------------------------------- -------------------------------------------'
'////////////////////////////CHECANDO SE EXSH JÁ ESTA ABERTO\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\'
'-------------------------------------------------------- -------------------------------------------'
Dim xRet als boolescher Wert
xRet = IsWorkBookOpen("EXSH0101.xlsx")
Wenn xRet Dann
MsgBox "O arquivo EXSH0101 já está aberto, por favor, feche o arquivo antes de executar a macro novamente.", vbInformation, "ERRO EXSH0101"
'MsgBox "Die Datei EXSH0101 ist bereits geöffnet, bitte schließen Sie sie, bevor Sie das Makro neu starten.", vbInformation, "EXSH0101 ERROR"
Exit Sub
End If
'-------------------------------------------------------- -------------------------------------------'
'///////////////////////////////////////////\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'-------------------------------------------------------- -------------------------------------------'

Mit Anwendung
.EnableEvents = Falsch
.ScreenUpdating = Falsch
Ende mit

Rufen Sie Abrir_Arquivos an

Rufen Sie Setando_EXSH auf

Rufen Sie Inserir_Formulas auf

Mit Anwendung
.EnableEvents = Wahr
.ScreenUpdating = Wahr
Ende mit

wb.Sheets("Einfügen").Activate

End Sub
Es sind noch keine Kommentare vorhanden
Bitte hinterlassen Sie Ihre Kommentare auf Englisch
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL