Как посчитать количество страниц PDF-файлов в Excel?
Если в определенной папке есть несколько файлов Pdf, теперь вы хотите отобразить все эти имена файлов на листе и получить номера страниц каждого файла. Как можно быстро и легко справиться с этой работой в Excel?
Подсчитайте номера страниц файлов PDF из папки на листе с кодом VBA
Подсчитайте номера страниц файлов PDF из папки на листе с кодом VBA
Возможно, следующий код VBA может помочь вам отобразить все имена файлов PDF и их номера страниц на листе, пожалуйста, сделайте следующее:
1. Откройте рабочий лист, на котором вы хотите получить файлы PDF и номера страниц.
2. Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.
3. Нажмите Вставить > Модули, и вставьте следующий макрос в Модули Окно.
Код 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 ключ для запуска этого кода и ЛИСТАТЬ СПИСКИ всплывает окно, выберите папку, содержащую файлы PDF, которые вы хотите перечислить, и подсчитайте номера страниц, см. снимок экрана:
5. А затем нажмите OK Кнопка, все имена файлов PDF и номера страниц перечислены на текущем листе, см. снимок экрана:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!