Як підрахувати номери сторінок файлів PDF у програмі Excel?
Якщо в певній папці є декілька файлів Pdf, зараз ви хочете відобразити всі ці імена файлів на аркуші та отримати номери сторінок кожного файлу. Як ви могли швидко і легко впоратися з цією роботою в Excel?
Підрахуйте номери сторінок файлів PDF із папки на аркуші із кодом VBA
Підрахуйте номери сторінок файлів PDF із папки на аркуші із кодом VBA
Можливо, наступний код VBA може допомогти вам відобразити всі назви файлів у форматі PDF та номери кожної сторінки на робочому аркуші. Будь ласка, зробіть так:
1. Відкрийте аркуш, де ви хочете отримати файли Pdf та номери сторінок.
2. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.
3. Клацання Insert > Модуліта вставте наступний макрос у Модулі Вікно
Код 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% та зменшує сотні клацань миші для вас щодня!
