Как да преброя номерата на страниците на Pdf файлове в Excel?
Ако има няколко Pdf файла в конкретна папка, сега искате да покажете всички тези имена на файлове в работен лист и да получите номерата на страниците на всеки файл. Как бихте могли да се справите с тази работа в Excel бързо и лесно?
Пребройте номерата на страниците на Pdf файлове от папка в работен лист с VBA код
Пребройте номерата на страниците на Pdf файлове от папка в работен лист с VBA код
Възможно е следният VBA код да ви помогне да покажете всички имена на Pdf файлове и номерата на всяка страница в работен лист, моля, направете следното:
1. Отворете работен лист, където искате да получите Pdf файловете и номерата на страниците.
2. Задръжте натиснат ALT + F11 ключове и отваря Microsoft Visual Basic за приложения прозорец.
3. Щракнете Поставете > Модулии поставете следния макрос в Модули Window.
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 ключ за изпълнение на този код и a паса изскочи прозорец, моля, изберете папката, която съдържа Pdf файловете, които искате да изброите, и пребройте номерата на страниците, вижте екранната снимка:
5. И след това щракнете OK всички имена на Pdf файлове и номера на страници са изброени в текущия работен лист, вижте екранната снимка:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!