Jak spočítat čísla stránek souborů PDF v aplikaci Excel?
Pokud existuje více souborů Pdf v konkrétní složce, nyní chcete zobrazit všechny tyto názvy souborů v listu a získat čísla stránek každého souboru. Jak byste mohli tuto práci v aplikaci Excel zvládnout rychle a snadno?
Počítat čísla stránek souborů PDF ze složky v listu s kódem VBA
Počítat čísla stránek souborů PDF ze složky v listu s kódem VBA
Může to být následující kód VBA, který vám pomůže zobrazit v listu všechny názvy souborů PDF a jejich jednotlivá čísla stránek, postupujte takto:
1. Otevřete list, kde chcete získat soubory PDF a čísla stránek.
2. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.
3, klikněte Vložit > Modula vložte následující makro do souboru Modul Okno.
Kód VBA: Seznam všech názvů souborů PDF a čísel stránek v listu:
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. Po vložení kódu a stiskněte F5 klíč ke spuštění tohoto kódu a Procházet vyskočí okno, vyberte složku obsahující soubory Pdf, které chcete vypsat, a spočítejte čísla stránek, viz screenshot:
5. A pak klikněte OK tlačítko, všechny názvy souborů PDF a čísla stránek jsou uvedeny v aktuálním listu, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
