Hvordan tælles sidetalene for Pdf-filer i Excel?
Hvis der er flere Pdf-filer i en bestemt mappe, vil du nu vise alle disse filnavne i et regneark og få sidetallene for hver fil. Hvordan kunne du håndtere dette job i Excel hurtigt og nemt?
Tæl sidetalene for Pdf-filer fra en mappe i regneark med VBA-kode
Tæl sidetalene for Pdf-filer fra en mappe i regneark med VBA-kode
Kan være følgende VBA-kode, der kan hjælpe dig med at vise alle Pdf-filnavne og deres hvert sidetal i et regneark, gør venligst som dette:
1. Åbn et regneark, hvor du vil hente Pdf-filer og sidetal.
2. Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.
3. Klik indsatte > Moduler, og indsæt følgende makro i Moduler Vindue.
VBA-kode: Liste over alle Pdf-filnavne og sidetal i regneark:
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. Efter at have indsat koden, og tryk derefter på F5 nøgle til at køre denne kode, og en Gennemse vinduet er poppet ud, skal du vælge den mappe, der indeholder de Pdf-filer, du vil liste og tælle sidetal, se skærmbillede:
5. Klik derefter på OK knap, alle Pdf-filnavne og sidetal vises i det aktuelle regneark, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!