Следующий 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 ключ или щелкните Run кнопку, чтобы запустить этот код VBA.

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

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

Легко объединяйте несколько листов / книг / файлов CSV в один рабочий лист / книгу

Объединение десятков листов из разных книг в один может оказаться утомительным занятием. Но с Kutools for Excel's Объединить (рабочие листы и рабочие тетради) утилиту, вы можете сделать это всего за несколько кликов!

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

1. Нажмите Кутулс Плюс > Workbook > Откройте папку содержащие. Смотрите скриншот:

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

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

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

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

1. Нажмите Кутулс Плюс > Импорт / Экспорт > Список имен файлов , чтобы открыть диалоговое окно Список имен файлов.

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

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

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