Hoe telt u het aantal pagina’s in PDF-bestanden met behulp van Excel?
Als u meerdere PDF-bestanden in een map hebt en de bestandsnamen samen met het aantal pagina’s in Excel wilt weergeven, dan lukt dat eenvoudig met een handige VBA-macro. In deze handleiding leest u hoe u snel de namen van uw PDF-bestanden én het bijbehorende aantal pagina’s kunt extraheren en direct in een Excel-werkblad kunt tonen.
Bestandsnamen en paginanummers weergeven in Excel met VBA
Bestandsnamen en paginanummers weergeven in Excel met VBA
De volgende VBA-code helpt u om alle bestandsnamen van PDF’s en hun bijbehorende paginanummers in een werkblad weer te geven. Volg deze stappen:
1. Open een werkblad waarin u de PDF-bestanden en bijbehorende paginanummers wilt ophalen.
2. Houd de toetsen 'ALT' + 'F11' ingedrukt om het venster 'Microsoft Visual Basic for Applications' te openen.
3. Klik op 'Invoegen' > 'Module' en plak de volgende macro in het Module-venster.
VBA-code: Alle PDF-bestanden-namen en paginanummers in werkblad weergeven:
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. Nadat u de code hebt geplakt, drukt u op de toets **F5** om deze uit te voeren. Er verschijnt een **Bladeren**-venster: selecteer de map met de PDF-bestanden waarvan u de bestandsnamen en paginanummers wilt weergeven. Zie de afbeelding hieronder:
5. Klik vervolgens op de knop „OK" – alle PDF-bestandsnamen en paginanummers verschijnen nu in het huidige werkblad. Zie de afbeelding hieronder:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins