Hur räknar man sidnumren för Pdf-filer i Excel?

Om du har flera PDF-filer i en mapp och behöver lista deras filnamn tillsammans med sidantal i Excel, kan du enkelt göra detta med ett enkelt VBA-makro. Denna handledning guidar dig genom stegen för att snabbt extrahera och visa PDF-filnamnen och deras motsvarande sidnummer i ett Excel-kalkylblad.

Visa PDF-filnamn och sidnummer i Excel med VBA

Visa PDF-filnamn och sidnummer i Excel med VBA

Följande VBA-kod kan hjälpa dig att visa alla PDF-filnamn och deras sidnummer i ett kalkylblad. Följ dessa steg:

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: