Kako prešteti številke strani datotek Pdf v Excelu?
Če je v določeni mapi več datotek Pdf, morate zdaj vsa ta imena datotek prikazati na delovnem listu in pridobiti številke strani vsake datoteke. Kako bi se lahko hitro in enostavno spopadli s tem delom v Excelu?
Štejte številke strani datotek Pdf iz mape na delovnem listu s kodo VBA
Štejte številke strani datotek Pdf iz mape na delovnem listu s kodo VBA
Morda vam bo naslednja koda VBA pomagala, da boste na delovnem listu prikazali vsa imena datotek Pdf in številke posameznih strani, naredite tako:
1. Odprite delovni list, kjer želite dobiti datoteke Pdf in številke strani.
2. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.
3. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Moduli Okno.
Koda VBA: Na seznamu navedite vsa imena datotek Pdf in številke strani:
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. Ko prilepite kodo, nato pritisnite F5 tipko za zagon te kode in a Brskanje Odpre se okno, izberite mapo, ki vsebuje datoteke Pdf, ki jih želite našteti, in preštejte številke strani, glejte posnetek zaslona:
5. In nato kliknite OK , so vsa imena datotek Pdf in številke strani navedena na trenutnem delovnem listu, glejte posnetek zaslona:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!