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
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:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
