Hoe telt u bestanden in een bepaalde map/directory in Excel?

De volgende VBA-code kan u helpen om gemakkelijk een specifiek type bestanden in een bepaalde map te tellen, zoals het tellen van alle .xlsx-bestanden in een map. Volg deze stappen:

1. Druk gelijktijdig op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

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

VBA: Tel een specifiek bestand in een bepaalde map

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. Voor het tellen van andere typen bestanden, zoek xPath = xFolder & "\*.xlsx" op en verander de .xlsx naar een andere bestandsextensie op basis van uw behoeften.

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

4. Selecteer in het venster Bladeren dat verschijnt de bepaalde map waarin u het specifieke type bestanden wilt tellen en klik op de knop OK.

5. Nu verschijnt er een dialoogvenster dat u laat zien hoeveel van het specifieke type bestanden er in de bepaalde map aanwezig zijn. Sluit het dialoogvenster gewoon.

Als u een map hebt geopend, ziet u normaal gesproken het aantal bestanden onderaan in deze map. Deze methode introduceert de functie Open de map waar het huidige document zich bevindt van Kutools voor Excel om de map te openen die het huidige werkboek bevat, en vervolgens het aantal bestanden in deze map te verkrijgen.

1. Klik op Kutools Plus > Werkboek > Open de map waar het huidige document zich bevindt. Zie screenshot:

2. Nu wordt de map die het huidige werkboek bevat geopend.

Deselecteer elk bestand in de geopende map, en u zult het aantal bestanden onderaan in deze map zien zoals in de onderstaande screenshot wordt getoond:

Opmerking: De Open de map waar het huidige document zich bevindt functie zal niet werken als u het huidige werkboek nog nooit hebt opgeslagen.

Soms wilt u mogelijk verschillende typen bestanden in een map en de bijbehorende submappen tellen. Eigenlijk biedt Kutools voor Excel een andere Bestandsnaamlijst-functie om dit probleem eenvoudig op te lossen.

1. Klik op Kutools Plus > Importeren / Exporteren > Bestandsnaamlijst om het Bestandsnaamlijst-dialoogvenster te openen.

2. Voer in het geopende Bestandsnaamlijst-dialoogvenster de volgende stappen uit:

3. Klik op de knop Ok in het Bestandsnaamlijst-dialoogvenster.

4. Nu worden alle bestanden van specifieke typen weergegeven in een nieuw werkblad. Selecteer de eerste kolom zonder de kolomkop, en u krijgt het aantal bestanden in de Statusbalk zoals in de onderstaande screenshot wordt getoond: