Hogyan lehet megszámolni a Pdf fájlok oldalszámát az Excelben?
Ha egy adott mappában több Pdf fájl van, akkor most ezeket a fájlneveket egy munkalapon szeretné megjeleníteni, és megkapja az egyes fájlok oldalszámait. Hogyan tudná gyorsan és egyszerűen kezelni ezt a munkát az Excel programban?
Számolja meg a Pdf fájlok oldalszámát egy VBA kóddal ellátott munkalap mappájából
Számolja meg a Pdf fájlok oldalszámát egy VBA kóddal ellátott munkalap mappájából
A következő VBA-kód segíthet abban, hogy az összes Pdf fájlnevet és az egyes oldalszámokat munkalapon jelenítse meg, kérjük, tegye a következőket:
1. Nyisson meg egy munkalapot, ahonnan meg szeretné szerezni a Pdf fájlokat és az oldalszámokat.
2. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.
3. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok Ablak.
VBA kód: Sorolja fel az összes Pdf fájlnevet és oldalszámot a munkalapon:
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. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, és a Tallózás ablak kiugrik, kérjük, válassza ki a mappát, amely tartalmazza a felsorolni kívánt Pdf fájlokat, és számolja meg az oldalszámokat, lásd a képernyőképet:
5. Ezután kattintson OK gombra, az összes Pdf fájlnév és oldalszám felkerül az aktuális munkalapra, lásd a képernyőképet:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!