Mit dem folgenden VBA können Sie auf einfache Weise einen bestimmten Dateityp in einem bestimmten Ordner zählen, z. B. alle XLSX-Dateien in einem Ordner. Bitte gehen Sie wie folgt vor:

1. Drücken Sie die Taste Andere + F11 Tasten gleichzeitig, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2 Klicken Insert > Modulund fügen Sie dann den folgenden VBA-Code in das sich öffnende Modulfenster ein.

VBA: Zählen Sie eine bestimmte Datei in einem bestimmten Ordner

Sub CountFiles()
Dim xFolder As String
Dim xPath As String
Dim xCount As Long
Dim xFiDialog As FileDialog
Dim xFile As String
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xFolder = xFiDialog.SelectedItems(1)
End If
If xFolder = "" Then Exit Sub
xPath = xFolder & "\*.xlsx"
xFile = Dir(xPath)
Do While xFile <> ""
xCount = xCount + 1
xFile = Dir()
Loop
MsgBox xCount & " files found"
End Sub

Note: Der obige VBA-Code zählt die . Xlsx Dateien in einem bestimmten Ordner. Informationen zum Zählen anderer Dateitypen finden Sie hier xPath = xFolder & "\ *. xlsx"und ändere die . Xlsx zu einer anderen Dateierweiterung, die Ihren Anforderungen entspricht.

3. Drücken Sie die Taste F5 Taste oder klicken Sie auf Führen Sie Schaltfläche zum Ausführen dieses VBA-Codes.

4. Wählen Sie im sich öffnenden Dialogfeld Durchsuchen den bestimmten Ordner aus, in dem Sie den bestimmten Dateityp zählen möchten, und klicken Sie auf OK .

5. Nun wird ein Dialogfeld angezeigt, in dem angezeigt wird, wie viele Dateitypen in einem bestimmten Ordner vorhanden sind. Schließen Sie einfach das Dialogfeld.

Kombinieren Sie einfach mehrere Arbeitsblätter / Arbeitsmappen / CSV-Dateien zu einem Arbeitsblatt / einer Arbeitsmappe

Es kann mühsam sein, Dutzende von Blättern aus verschiedenen Arbeitsmappen zu einem Blatt zu kombinieren. Aber mit Kutools für Excel Kombinieren (Arbeitsblätter und Arbeitsmappen) Dienstprogramm, können Sie es mit nur wenigen Klicks erledigen!

Wenn Sie einen Ordner geöffnet haben, wird normalerweise die Anzahl aller Dateien am Ende dieses Ordners angezeigt. Diese Methode führt Kutools für Excel ein Übergeordneten Ordner öffnen Dienstprogramm zum Öffnen des Ordners, der die aktuelle Arbeitsmappe enthält, und Abrufen der Anzahl der Dateien in diesem Ordner.

1 Klicken Kutoolen Plus > Workbook > Übergeordneten Ordner öffnen. Siehe Screenshot:

2. Jetzt wird der Ordner mit der aktuellen Arbeitsmappe geöffnet.

Deaktivieren Sie eine Datei im Eröffnungsordner, und Sie sehen die Anzahl aller Dateien am unteren Rand dieses Ordners wie im folgenden Screenshot gezeigt:

Note: Das Übergeordneten Ordner öffnen Das Dienstprogramm ist ungültig, wenn Sie die aktuelle Arbeitsmappe noch nie zuvor gespeichert haben.

Manchmal möchten Sie möglicherweise mehrere Dateitypen in einem Ordner und seinen Unterordnern zählen. Eigentlich bietet Kutools für Excel eine andere Dateinamenliste Dienstprogramm, um es mit Leichtigkeit zu lösen.

1 Klicken Kutoolen Plus > Import / Export > Dateinamenliste um das Dialogfeld Dateinamenliste zu öffnen.

2. Gehen Sie im sich öffnenden Dialogfeld Dateinamenliste wie folgt vor:

3. Klicken Sie auf die Ok Schaltfläche im Dialogfeld Dateinamenliste.

4. Jetzt werden alle Dateien bestimmter Typen in einem neuen Arbeitsblatt aufgelistet. Wählen Sie einfach die erste Spalte ohne Spaltenüberschrift aus, und Sie erhalten die Anzahl der Dateien in der Statusleiste wie im folgenden Screenshot gezeigt: