Hoe tel je de paginanummers van pdf-bestanden in Excel?
Als een specifieke map meerdere pdf-bestanden bevat, wilt u nu al deze bestandsnamen in een werkblad weergeven en de paginanummers van elk bestand ophalen. Hoe kon je deze klus snel en gemakkelijk in Excel afhandelen?
Tel de paginanummers van pdf-bestanden uit een map in een werkblad met VBA-code
Tel de paginanummers van pdf-bestanden uit een map in een werkblad met VBA-code
Mogelijk kan de volgende VBA-code u helpen om alle Pdf-bestandsnamen en hun paginanummers in een werkblad weer te geven, doe dit als volgt:
1. Open een werkblad waar u de pdf-bestanden en paginanummers wilt ophalen.
2. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.
3. Klikken Invoegen > Moduleen plak de volgende macro in het Module Venster.
VBA-code: maak een lijst van alle Pdf-bestandsnamen en paginanummers in het werkblad:
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 F5 sleutel om deze code uit te voeren, en een Blader venster verschijnt, selecteer de map met de pdf-bestanden die u wilt weergeven en tel paginanummers, zie screenshot:
5. En klik dan OK knop, worden alle Pdf-bestandsnamen en paginanummers weergegeven in het huidige werkblad, zie screenshot:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!