Följande VBA kan hjälpa dig att enkelt räkna en viss typ av filer i en viss mapp, såsom att räkna alla .xlsx-filer i en mapp. Gör så här:

1. tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic for Applications-fönstret.

2. klick Insert > Modulernaoch klistra sedan in VBA-koden nedan i öppningsmodulfönstret.

VBA: Räkna en specifik fil i en viss mapp

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

Anmärkningar: Ovanstående VBA-kod kommer att räkna .xlsx filer i en viss mapp. För att räkna andra typer av filer, vänligen ta reda på det xPath = xFolder & "\ *. xlsx", och ändra .xlsx till andra filtillägg baserat på dina behov.

3. tryck på F5 eller klicka på Körning för att köra denna VBA-kod.

4. I den öppna dialogrutan Bläddra väljer du den mapp som du vill räkna med den specifika typen av filer och klickar på OK knapp.

5. Nu kommer en dialogruta ut som visar hur många den specifika typen av filer finns i den specifika mappen. Stäng bara dialogrutan.

Om du har öppnat en mapp får du normalt antalet filer längst ner i den här mappen. Denna metod kommer att introducera Kutools för Excel Öppna objektets mapp verktyget för att öppna mappen som innehåller aktuell arbetsbok och sedan hämta antalet filer i den här mappen.

1. klick Kutools Plus > Arbetsbok > Öppna objektets mapp. Se skärmdump:

2. Nu öppnas mappen som innehåller aktuell arbetsbok.

Avmarkera någon fil i den inledande mappen, och du kommer att se antalet filer längst ner i den här mappen som visas nedan:

Anmärkningar: Den Öppna objektets mapp verktyget är ogiltigt om du aldrig har sparat aktuell arbetsbok tidigare.

Ibland kanske du vill räkna flera typer av filer i en mapp och dess undermappar. Egentligen ger Kutools för Excel en annan Lista över filnamn verktyg för att lösa det med lätthet.

1. klick Kutools Plus > Import Export > Lista över filnamn för att öppna dialogrutan Filnamn.

2. Gör så här i den inledande dialogrutan Filnamn:

3. Klicka på Ok -knappen i dialogrutan Filnamn.

4. Nu listas alla filer av specifika typer i ett nytt kalkylblad. Välj bara den första kolumnen utan kolumnrubriken, så får du antalet filer i statusfältet som visas nedan: