Cum se numără numerele de pagină ale fișierelor PDF în Excel?
Dacă există mai multe fișiere Pdf într-un anumit folder, acum, doriți să afișați toate aceste nume de fișiere într-o foaie de lucru și să obțineți numerele de pagină ale fiecărui fișier. Cum ați putea face față acestui loc de muncă în Excel rapid și ușor?
Numărați numerele de pagini ale fișierelor Pdf dintr-un dosar din foaia de lucru cu cod VBA
Numărați numerele de pagini ale fișierelor Pdf dintr-un dosar din foaia de lucru cu cod VBA
Poate fi următorul cod VBA care vă poate ajuta să afișați toate numele fișierelor Pdf și numerele lor de pagină într-o foaie de lucru, vă rugăm să procedați astfel:
1. Deschideți o foaie de lucru în care doriți să obțineți fișierele Pdf și numerele de pagină.
2. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.
3. Clic Insera > Moduleși lipiți următoarea macro în fișierul Module Fereastră.
Cod VBA: enumerați toate numele fișierelor Pdf și numerele de pagină în foaia de lucru:
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. După lipirea codului, apoi apăsați F5 tasta pentru a rula acest cod și a Naviga fereastra se deschide, selectați folderul care conține fișierele Pdf pe care doriți să le enumerați și să numărați numerele de pagină, consultați captura de ecran:
5. Apoi, faceți clic OK buton, toate numele fișierelor Pdf și numerele de pagină sunt listate în foaia de lucru curentă, consultați captura de ecran:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!