Comment compter les numéros de page des fichiers Pdf dans Excel?

S'il existe plusieurs fichiers Pdf dans un dossier spécifique, vous souhaitez maintenant afficher tous ces noms de fichiers dans une feuille de calcul et obtenir les numéros de page de chaque fichier. Comment pourriez-vous gérer ce travail dans Excel rapidement et facilement?

Comptez les numéros de page des fichiers Pdf à partir d'un dossier dans la feuille de calcul avec le code VBA

Comptez les numéros de page des fichiers Pdf à partir d'un dossier dans la feuille de calcul avec le code VBA

Le code VBA suivant peut vous aider à afficher tous les noms de fichiers Pdf et leurs numéros de page dans une feuille de calcul, procédez comme suit:

1. Ouvrez une feuille de calcul dans laquelle vous souhaitez obtenir les fichiers Pdf et les numéros de page.

2. Maintenez le ALT + F11 clés, et il ouvre le Microsoft Visual Basic pour applications fenêtre.

3Cliquez sur insérer > Moduleet collez la macro suivante dans le Module Fenêtre.

Code VBA: Liste tous les noms de fichiers Pdf et numéros de page dans la feuille de calcul:

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. Après avoir collé le code, puis appuyez sur F5 clé pour exécuter ce code, et un Explorer La fenêtre s'affiche, veuillez sélectionner le dossier contenant les fichiers Pdf que vous souhaitez lister et compter les numéros de page, voir capture d'écran:

5. Et puis, cliquez OK bouton, tous les noms de fichiers Pdf et les numéros de page sont répertoriés dans la feuille de calcul actuelle, voir capture d'écran: