Hoe telt u het aantal bestanden in een specifieke map of mapstructuur in Excel?

Met de volgende VBA-code telt u eenvoudig een specifiek bestandstype in een bepaalde map — bijvoorbeeld alle .xlsx-bestanden. Volg deze stappen:

1. Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak vervolgens de onderstaande VBA-code in het geopende modulevenster.

VBA: Een specifiek bestand in een bepaalde map tellen

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

Opmerking: De bovenstaande VBA-code telt de .xlsx-bestanden in een bepaalde map. Als u een ander bestandstype wilt tellen, zoekt u de regel xPath = xFolder & „\*.xlsx" op en wijzigt u de .xlsx-extensie naar een andere bestandsextensie, afhankelijk van uw behoeften.

3. Druk op de toets F5 of klik op de knop Uitvoeren om deze VBA-code uit te voeren.

4. Selecteer in het geopende Bladeren-dialoogvenster de map waarin u het specifieke bestandstype wilt tellen en klik op de knop OK.

5. Er verschijnt nu een dialoogvenster met het aantal exemplaren van het specifieke bestandstype in de betreffende map. Sluit het dialoogvenster gewoon.

Wanneer u een map opent, ziet u normaal gesproken het totale aantal bestanden onderaan in die map. Met de functie Open de map waar het huidige document zich bevindt van Kutools voor Excel opent u direct de map met het huidige werkboek, zodat u meteen het aantal bestanden in die map kunt zien.

1. Klik op KUTOOLS PLUS > Werkmap > Open de map waar het huidige document zich bevindt. Zie screenshot:

2. De map met het huidige werkboek wordt nu geopend.

Selecteer geen bestand in de Map openen; u ziet dan het totale aantal bestanden onderaan deze map, zoals in de onderstaande screenshot wordt weergegeven:

Opmerking: Het hulpprogramma Open de map waar het huidige document zich bevindt werkt niet als u het huidige werkboek nog nooit eerder heeft opgeslagen.

Soms wilt u verschillende bestandstypen in een map en de bijbehorende submappen tellen. Gelukkig biedt Kutools voor Excel nog een handige tool: Bestandsnaamlijst, waarmee u dit eenvoudig kunt oplossen.

1. Klik op KUTOOLS PLUS > Importeren/Exporteren > Bestandsnaamlijst om het dialoogvenster Bestandsnaamlijst te openen.

2. Volg in het geopende dialoogvenster Bestandsnaamlijst de onderstaande stappen:

3. Klik op de knop OK in het dialoogvenster Bestandsnaamlijst.

4. Alle bestanden van het type Specificeer type worden nu weergegeven in een Nieuw werkblad. Selecteer de eerste kolom zonder de kolomkop; u ziet dan het aantal bestanden in de Statusbalk, zoals in de onderstaande screenshot wordt weergegeven: