Як підрахувати номери сторінок файлів 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 та номери сторінок перераховані на поточному аркуші, див. знімок екрана: