Wie zählt man mithilfe von Excel die Anzahl der Seiten in PDF-Dateien?
Wenn Sie mehrere PDF-Dateien in einem Ordner haben und deren Dateinamen samt Seitenzahlen in Excel auflisten möchten, erledigen Sie das ganz einfach mit einem kurzen VBA-Makro. In diesem Tutorial führen wir Sie Schritt für Schritt durch den Prozess, um PDF-Dateinamen und zugehörige Seitenzahlen schnell in ein Excel-Arbeitsblatt zu extrahieren und übersichtlich anzuzeigen.
Anzeige der PDF-Dateien-Namen und Seitenzahlen in Excel mit VBA
Anzeige der PDF-Dateien-Namen und Seitenzahlen in Excel mit VBA
Der folgende VBA-Code hilft Ihnen, alle PDF-Dateinamen samt deren Seitenzahlen übersichtlich in einem Arbeitsblatt anzuzeigen. Gehen Sie dazu wie folgt vor:
1. Öffnen Sie ein Arbeitsblatt, in dem Sie die PDF-Dateien und deren Seitenzahlen erfassen möchten.
2. Halten Sie die Tasten „ALT“ + „F11“ gedrückt – das Fenster „Microsoft Visual Basic for Applications“ öffnet sich.
3. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie das folgende Makro in das Modulfenster ein.
VBA-Code: Alle PDF-Dateien-Namen 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 ihn auszuführen. Anschließend öffnet sich ein „Browse“-Fenster – wählen Sie bitte den Ordner aus, der die PDF-Dateien enthält, deren Namen und Seitenzahlen Sie auflisten möchten. Siehe Screenshot:
5. Klicken Sie anschließend auf die Schaltfläche „OK“. Daraufhin werden alle PDF-Dateinamen und Seitenzahlen automatisch in das aktuelle Arbeitsblatt eingetragen. Siehe Screenshot:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins