Wie zählt man die Anzahl der Seiten in PDF-Dateien mit Excel?

Wenn Sie mehrere PDF-Dateien in einem Ordner haben und deren Dateinamen zusammen mit den Seitenzahlen in Excel auflisten müssen, können Sie dies ganz einfach mit einem einfachen VBA-Makro tun. Dieses Tutorial führt Sie durch die Schritte, um die PDF-Dateinamen und die entsprechenden Seitenzahlen schnell in einem Excel-Arbeitsblatt zu extrahieren und anzuzeigen.

PDF-Dateinamen und Seitenzahlen mit VBA in Excel anzeigen

PDF-Dateinamen und Seitenzahlen mit VBA in Excel anzeigen

Der folgende VBA-Code kann Ihnen helfen, alle PDF-Dateinamen und deren Seitenzahlen in einem Arbeitsblatt anzuzeigen. Bitte folgen Sie diesen Schritten:

1. Öffnen Sie ein Arbeitsblatt, in dem Sie die PDF-Dateien und Seitenzahlen abrufen möchten.

2. Halten Sie die Tasten "ALT" + "F11" gedrückt, und es öffnet sich das Fenster "Microsoft Visual Basic for Applications".

3. Klicken Sie auf "Einfügen" > "Modul" und fügen Sie das folgende Makro im "Modul"-Fenster ein.

VBA-Code: Alle PDF-Dateinamen und Seitenzahlen im Arbeitsblatt auflisten:

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. Nachdem Sie den Code eingefügt haben, drücken Sie die Taste "F5", um diesen Code auszuführen, und ein "Durchsuchen"-Fenster wird angezeigt. Wählen Sie den Ordner aus, der die PDF-Dateien enthält, die Sie auflisten und deren Seitenanzahl Sie zählen möchten, siehe Screenshot:

5. Klicken Sie anschließend auf die Schaltfläche "OK", und alle PDF-Dateinamen und Seitenzahlen werden in das aktuelle Arbeitsblatt aufgelistet, siehe Screenshot: