Следният VBA може да ви помогне лесно да преброите конкретен тип файлове в определена папка, като например да преброите всички .xlsx файлове в папка. Моля, направете следното:

1. Натисни Друг + F11 клавиши едновременно, за да отворите прозореца на Microsoft Visual Basic за приложения.

2. кликване Поставете > Модулии след това поставете кода на VBA по-долу в отварящия се прозорец на модула.

VBA: Преброяване на конкретен файл в определена папка

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

Забележка: Горният VBA код ще отчита . Xlsx файлове в определена папка. За преброяване на друг тип файлове, моля, разберете xPath = xFolder & "\*.xlsx", и променете . Xlsx към друго файлово разширение според вашите нужди.

3. Натисни F5 клавиша или щракнете върху бягане бутон за изпълнение на този VBA код.

4. В отварящия се диалогов прозорец Преглед изберете определена папка, в която ще преброите конкретния тип файлове, и щракнете върху OK бутон.

5. Сега ще излезе диалогов прозорец и ще ви покаже колко конкретни типове файлове съществуват в определена папка. Просто затворете диалоговия прозорец.

Комбинирайте лесно множество работни листове/работни книги/CSV файлове в един работен лист/работна книга

Може да е досадно да комбинирате десетки листове от различни работни книги в един лист. Но с Kutools за Excel Комбинирайте (работни листове и работни тетрадки) помощна програма, можете да го направите само с няколко кликвания!

Ако сте отворили папка, обикновено ще получите броя на всички файлове в долната част на тази папка. Този метод ще въведе Kutools за Excel Отвори съдържащата папка помощна програма, за да отворите папката, която съдържа текущата работна книга, и след това да получите броя на файловете в тази папка.

1. кликване Kutools плюс > Workbook > Отвори съдържащата папка. Вижте екранна снимка:

2. Сега папката, съдържаща текущата работна книга, се отваря.

Премахнете избора на всеки файл в отварящата папка и ще видите броя на всички файлове в долната част на тази папка, както е показано на екранната снимка по-долу:

Забележка: Най- Отвори съдържащата папка помощната програма ще бъде невалидна, ако никога преди не сте записвали текущата работна книга.

Понякога може да искате да преброите няколко типа файлове в папка и нейните подпапки. Всъщност Kutools за Excel предоставя друго Списък с имена на файлове помощна програма за лесно решаване на проблема.

1. кликване Kutools плюс > Внос / Износ > Списък с имена на файлове за да отворите диалоговия прозорец Списък с имена на файлове.

2. В отварящия се диалогов прозорец Списък с имена на файлове, моля, направете следното:

3. Щракнете върху Ok в диалоговия прозорец Списък с имена на файлове.

4. Сега всички файлове от определени типове се изброяват в нов работен лист. Просто изберете първата колона без заглавката на колоната и ще получите броя на файловете в лентата на състоянието, както е показано на екранната снимка по-долу: