Im Folgenden sehen wir uns ein Programm in an Excel VBA das durchläuft alle geschlossenen Arbeitsmappen und Arbeitsblätter in einem Verzeichnis, und zeigt alle Namen an.
Laden Sie Book1.xlsx, Book2.xlsx, Book3.xlsx, Book4.xlsx und Book5.xlsx herunter und fügen Sie sie zu "C:\test\" hinzu.
Lage:
Fügen Sie der Befehlsschaltfläche die folgenden Codezeilen hinzu:
1. Zuerst deklarieren wir zwei Variablen vom Typ String, ein Worksheet-Objekt und zwei Variablen vom Typ Integer.
Dim-Verzeichnis As String, fileName As String, Blatt Als Arbeitsblatt, i As Integer, j As Integer
2. Um Bildschirmflimmern zu vermeiden, deaktivieren Sie die Bildschirmaktualisierung.
Application.ScreenUpdating = False
3. Initialisieren Sie das Variablenverzeichnis. Wir verwenden die Dir-Funktion, um die erste *.xl?? Datei in diesem Verzeichnis gespeichert.
Verzeichnis = "c:\test\"
fileName = Dir(Verzeichnis & "*.xl??")
Hinweis: Die Dir-Funktion unterstützt die Verwendung von Platzhaltern mit mehreren Zeichen (*) und einzelnen Zeichen (?), um nach allen verschiedenen Arten von Excel-Dateien zu suchen.
4. Die Variable fileName enthält nun den Namen der ersten im Verzeichnis gefundenen Excel-Datei. Fügen Sie eine Do While-Schleife hinzu.
Do While Dateiname ""
Schleife
Fügen Sie der Schleife die folgenden Codezeilen (bei 5, 6, 7, 8 und 9) hinzu.
5. Initialisieren Sie die Variablen vom Typ Integer und fügen Sie den Namen der Excel-Datei in die erste Spalte von Zeile i ein.
ich = ich + 1
j = 2
Zellen(i, 1) = Dateiname
6. Es gibt keine einfache Möglichkeit, Daten (oder Blattnamen) aus geschlossenen Excel-Dateien zu extrahieren. Daher öffnen wir die Excel-Datei.
Workbooks.Open (Verzeichnis & Dateiname)
7. Fügen Sie alle Blattnamen der Excel-Datei zu den anderen Spalten der Zeile i hinzu.
Für jedes Blatt in Arbeitsmappen(Dateiname).Arbeitsblätter
Workbooks("files-in-a-directory.xlsm").Worksheets(1).Cells(i, j).Value = sheet.Name
j = j + 1
Nächstes Blatt
8. Schließen Sie die Excel-Datei.
Arbeitsmappen(Dateiname).Schließen
9. Die Dir-Funktion ist eine Sonderfunktion. Um die anderen Excel-Dateien abzurufen, können Sie die Dir-Funktion erneut ohne Argumente verwenden.
Dateiname = Dir()
Hinweis: Wenn keine Dateinamen mehr übereinstimmen, gibt die Dir-Funktion eine Zeichenfolge der Länge null ("") zurück. Als Ergebnis verlässt Excel VBA die Do While-Schleife.
10. Schalten Sie die Bildschirmaktualisierung wieder ein (außerhalb der Schleife).
Application.ScreenUpdating = True
11. Testen Sie das Programm.
Ergebnis:
