Come contare il numero di pagine nei file PDF utilizzando Excel?

Se hai più file PDF in una cartella e devi elencarne i nomi insieme al conteggio delle pagine in Excel, puoi farlo facilmente con una semplice macro VBA. Questa guida ti accompagnerà attraverso i passaggi per estrarre rapidamente e visualizzare i nomi dei file PDF e i relativi numeri di pagina in un foglio di lavoro di Excel.

Visualizza i nomi dei file PDF e i numeri di pagina in Excel con VBA

Visualizza i nomi dei file PDF e i numeri di pagina in Excel con VBA

Il seguente codice VBA può aiutarti a visualizzare tutti i nomi dei file PDF e i loro numeri di pagina in un foglio di lavoro. Segui questi passaggi:

1. Apri un foglio di lavoro dove desideri ottenere i file PDF e i numeri di pagina.

2. Tieni premuti i tasti "ALT" + "F11" e si aprirà la finestra "Microsoft Visual Basic for Applications".

3. Clicca su "Inserisci" > "Modulo" e incolla la seguente macro nella finestra "Modulo".

Codice VBA: Elenca tutti i nomi dei file PDF e i numeri di pagina nel foglio di lavoro:

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. Dopo aver incollato il codice, premi il tasto "F5" per eseguirlo, e apparirà una finestra "Sfoglia", seleziona la cartella che contiene i file PDF che vuoi elencare e contare le pagine, vedi screenshot:

5. Successivamente, clicca sul pulsante "OK", tutti i nomi dei file PDF e i numeri di pagina verranno elencati nel foglio di lavoro corrente, vedi screenshot: