Come si fa a contare il numero di pagine in un file PDF utilizzando Excel?
Se hai più file PDF in una cartella e vuoi elencarne i nomi insieme al numero di pagine direttamente in Excel, puoi farlo facilmente con una semplice macro VBA. Questo tutorial ti guida passo dopo passo nell’estrazione e nella visualizzazione rapida dei nomi dei file PDF e dei relativi numeri di pagina in un foglio di lavoro 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 ti permette di visualizzare in un foglio di lavoro i nomi di tutti i file PDF e il relativo numero di pagine. Segui questi semplici passaggi:
1. Apri un foglio di lavoro in cui desideri recuperare i nomi dei file PDF e i relativi numeri di pagina.
2. Tieni premuti i tasti «ALT» + "F11" per aprire la finestra di Microsoft Visual Basic for Applications.
3. Fai clic su «Inserisci» > «Modulo» e incolla la seguente macro nella finestra del 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. Si aprirà una finestra «Sfoglia»: seleziona la cartella contenente i file PDF di cui desideri elencare e contare le pagine (vedi screenshot).
5. Quindi fai clic sul pulsante «OK». Tutti i nomi dei file PDF e i relativi numeri di pagina verranno inseriti nel foglio di lavoro corrente, come mostrato nello screenshot:
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi