Наступний VBA може допомогти вам легко підрахувати певний тип файлів у певній папці, наприклад, підрахувати всі .xlsx файли в папці. Будь ласка, виконайте наступне:

1 Натисніть кнопку інший + F11 одночасно відкрити вікно Microsoft Visual Basic for Applications.

2. клацання Insert > Модулі, а потім вставте наведений нижче код 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 for ExcelАвтора Об’єднати (робочі аркуші та робочі зошити) Утиліта, ви можете зробити це всього за кілька кліків!

Якщо ви відкрили папку, зазвичай ви отримаєте кількість усіх файлів у нижній частині цієї папки. Цей метод познайомить Kutools for ExcelАвтора Відкрити містить папку утиліта, щоб відкрити папку, яка містить поточну книгу, а потім отримати кількість файлів у цій папці.

1. клацання Kutools Plus > робочий зошит > Відкрити містить папку. Дивіться знімок екрана:

2. Зараз відкривається папка, що містить поточну книгу.

Скасуйте вибір будь-якого файлу у папці, що відкривається, і ви побачите кількість усіх файлів внизу цієї папки, як показано на знімку екрана нижче:

примітки: Відкрити містить папку утиліта буде недійсною, якщо ви ніколи раніше не зберігали поточну книгу.

Іноді вам може знадобитися підрахувати кілька типів файлів у папці та її вкладених папках. Насправді Kutools for Excel забезпечує інший Список імен файлів утиліта для її легкого вирішення.

1. клацання Kutools Plus > Імпорт-експорт > Список імен файлів щоб відкрити діалогове вікно Список імен файлів.

2. У діалоговому вікні «Список імен файлів», що відкривається, будь-ласка, виконайте такі дії:

3. Натисніть Ok у діалоговому вікні Список імен файлів.

4. Тепер усі файли певних типів перераховані на новому аркуші. Просто виберіть перший стовпець без заголовка стовпця, і ви отримаєте кількість файлів у рядку стану, як показано нижче: