Como contar o número de páginas de arquivos PDF no Excel?
Se houver vários arquivos PDF em uma pasta específica, agora você deseja exibir todos esses nomes de arquivo em uma planilha e obter os números das páginas de cada arquivo. Como você poderia lidar com esse trabalho no Excel de forma rápida e fácil?
Conte os números das páginas dos arquivos Pdf de uma pasta na planilha com o código VBA
Conte os números das páginas dos arquivos Pdf de uma pasta na planilha com o código VBA
Pode ser o seguinte código VBA pode ajudá-lo a exibir todos os nomes de arquivo PDF e seus números de cada página em uma planilha, faça o seguinte:
1. Abra uma planilha onde você deseja obter os arquivos PDF e números de página.
2. Segure o ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.
3. Clique inserção > Móduloe cole a macro a seguir no Módulo Janela.
Código VBA: Liste todos os nomes de arquivo PDF e números de página na planilha:
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. Depois de colar o código, pressione F5 chave para executar este código, e um Procurar janela for exibida, selecione a pasta que contém os arquivos PDF que deseja listar e contar os números das páginas, consulte a imagem:
5. E então, clique OK botão, todos os nomes de arquivo PDF e números de página são listados na planilha atual, consulte a captura de tela:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!