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:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins