Как подсчитать количество файлов в определённой папке или каталоге с помощью Excel?

Следующий код VBA поможет вам быстро и легко подсчитать все файлы определённого типа в указанной папке — например, файлы с расширением .xlsx. Выполните следующие действия:

1. Нажмите одновременно клавиши Alt+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. В открывшемся диалоговом окне «Обзор» выберите папку, в которой нужно подсчитать файлы определённого типа, и нажмите кнопку ОК.

5. Теперь появится диалоговое окно с количеством файлов указанного типа в выбранной папке. Просто закройте его.

Когда вы открываете папку, общее количество файлов обычно отображается внизу окна. Этот метод использует утилиту Открыть папку, в которой находится текущий документ из набора инструментов Kutools для Excel, чтобы открыть папку с текущей книгой и получить количество файлов в ней.

1. Нажмите KUTOOLS PLUS > Книга > Открыть папку, в которой находится текущий документ. См. снимок экрана:

2. Теперь открывается папка, содержащая текущую книгу.

Снимите выделение с любого файла в Открыть папку, и вы увидите общее количество файлов внизу окна, как показано на снимке экрана ниже:

Примечание: Утилита Открыть папку, в которой находится текущий документ не будет работать, если вы ранее не сохранили текущую книгу.

Иногда может понадобиться подсчитать количество файлов определённых типов в папке и её подпапках. На самом деле, Kutools для Excel предлагает ещё одну удобную утилиту — Список имен файлов, которая легко справляется с этой задачей.

1. Нажмите KUTOOLS PLUS > Импорт/экспорт > Список имен файлов, чтобы открыть диалоговое окно «Список имен файлов».

2. В открывшемся диалоговом окне Список имен файлов выполните следующие действия:

3. Нажмите кнопку ОК в диалоговом окне «Список имен файлов».

4. Теперь все файлы указанного типа отображаются на новом листе. Просто выделите первый столбец без заголовка — и количество файлов появится в строке состояния, как показано на снимке экрана ниже: