¿Cómo contar los números de página de los archivos PDF en Excel?
Si hay varios archivos PDF en una carpeta específica, ahora desea mostrar todos estos nombres de archivo en una hoja de trabajo y obtener los números de página de cada archivo. ¿Cómo podría hacer frente a este trabajo en Excel de forma rápida y sencilla?
Cuente los números de página de los archivos PDF de una carpeta en la hoja de trabajo con código VBA
Cuente los números de página de los archivos PDF de una carpeta en la hoja de trabajo con código VBA
Puede ser que el siguiente código VBA pueda ayudarlo a mostrar todos los nombres de archivos PDF y sus números de página en una hoja de trabajo, haga lo siguiente:
1. Abra una hoja de trabajo donde desee obtener los archivos PDF y los números de página.
2. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.
3. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Módulo Ventana.
Código de VBA: enumere todos los nombres de archivos PDF y números de página en la hoja de trabajo:
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. Después de pegar el código y luego presione F5 clave para ejecutar este código, y una Explorar aparece la ventana emergente, seleccione la carpeta que contiene los archivos PDF que desea enumerar y contar los números de página, vea la captura de pantalla:
5. Y luego, haga clic en OK , todos los nombres de archivos PDF y números de página se enumeran en la hoja de trabajo actual, vea la captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!