Hur räknar man sidnumren för Pdf-filer i Excel?
Om det finns flera Pdf-filer i en viss mapp vill du nu visa alla dessa filnamn i ett kalkylblad och få sidnumren för varje fil. Hur kan du hantera detta jobb i Excel snabbt och enkelt?
Räkna sidnumren för Pdf-filer från en mapp i kalkylbladet med VBA-kod
Räkna sidnumren för Pdf-filer från en mapp i kalkylbladet med VBA-kod
Kan vara följande VBA-kod kan hjälpa dig att visa alla Pdf-filnamn och deras sidnummer i ett kalkylblad, gör så här:
1. Öppna ett kalkylblad där du vill hämta Pdf-filer och sidnummer.
2. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.
3. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna Fönster.
VBA-kod: Lista alla Pdf-filnamn och sidnummer i kalkylbladet:
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 att ha klistrat in koden och tryck sedan på F5 nyckel för att köra den här koden och en Bläddra fönstret visas, välj den mapp som innehåller Pdf-filer du vill lista och räkna sidnummer, se skärmdump:
5. Och klicka sedan på OK -knappen, alla Pdf-filnamn och sidnummer listas i det aktuella kalkylbladet, se skärmdump:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
