Как подсчитать количество страниц в файлах PDF с помощью Excel?
Если в папке у вас несколько файлов PDF и нужно вывести их имена вместе с количеством страниц в Excel, это легко сделать с помощью простого макроса VBA. В данном руководстве описаны шаги для быстрого извлечения и отображения имён файлов PDF и соответствующего количества страниц на листе Excel.
Отображение имён файлов Файлы PDF и количества страниц в Excel с помощью VBA
Отображение имён файлов Файлы PDF и количества страниц в Excel с помощью VBA
Приведённый ниже код VBA поможет вам вывести на лист все имена PDF-файлов и количество страниц в каждом из них. Выполните следующие действия:
1. Откройте лист, на который вы хотите получить имена PDF-файлов и количество страниц.
2. Удерживая клавиши «ALT» + «F11», откройте окно Microsoft Visual Basic for Applications.
3. Нажмите «Insert» (Вставка) > «Module» (Модуль) и вставьте приведённый ниже макрос в окно модуля.
Код VBA: вывод всех имён файлов Файлы PDF и количества страниц на лист:
Sub Test()
Dim I As Long
Dim xRg As Range
Dim xStr As String
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Dim xFileNum As Long
Dim RegExp As Object
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.pdf", vbDirectory)
Set xRg = Range("A1")
Range("A:B").ClearContents
Range("A1:B1").Font.Bold = True
xRg = "File Name"
xRg.Offset(0, 1) = "Pages"
I = 2
xStr = ""
Do While xFileName <> ""
Cells(I, 1) = xFileName
Set RegExp = CreateObject("VBscript.RegExp")
RegExp.Global = True
RegExp.Pattern = "/Type\s*/Page[^s]"
xFileNum = FreeFile
Open (xFdItem & xFileName) For Binary As #xFileNum
xStr = Space(LOF(xFileNum))
Get #xFileNum, , xStr
Close #xFileNum
Cells(I, 2) = RegExp.Execute(xStr).Count
I = I + 1
xFileName = Dir
Loop
Columns("A:B").AutoFit
End If
End Sub
4. После вставки кода нажмите клавишу «F5» для его запуска. Откроется окно «Browse» (Обзор). Выберите папку с файлами PDF, имена и количество страниц которых вы хотите получить — см. снимок экрана:
5. Затем нажмите кнопку «OK» — все имена PDF-файлов и количество страниц автоматически добавятся на текущий лист (см. снимок экрана):
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек