Sut i gyfrif rhifau tudalennau ffeiliau Pdf yn Excel?
Os oes sawl ffeil Pdf mewn ffolder benodol, nawr, rydych chi am arddangos yr holl enwau ffeiliau hyn mewn taflen waith, a chael rhifau tudalennau pob ffeil. Sut allech chi ddelio â'r swydd hon yn Excel yn gyflym ac yn hawdd?
Cyfrif rhifau tudalennau ffeiliau Pdf o ffolder mewn taflen waith gyda chod VBA
Cyfrif rhifau tudalennau ffeiliau Pdf o ffolder mewn taflen waith gyda chod VBA
Efallai mai'r cod VBA canlynol a all eich helpu i arddangos yr holl enwau ffeiliau Pdf a'u rhifau pob tudalen mewn taflen waith, gwnewch fel hyn:
1. Agorwch daflen waith lle rydych chi am gael y ffeiliau Pdf a rhifau'r tudalennau.
2. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
3. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Modiwlau Ffenestr.
Cod VBA: Rhestrwch yr holl enwau ffeiliau Pdf a rhifau tudalennau yn y daflen waith:
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. Ar ôl pasio'r cod, ac yna pwyswch F5 allwedd i redeg y cod hwn, ac a Pori ffenestr wedi'i popio allan, dewiswch y ffolder sy'n cynnwys y ffeiliau Pdf rydych chi am eu rhestru a chyfrif rhifau tudalennau, gweler y screenshot:
5. Ac yna, cliciwch OK botwm, mae holl enwau ffeiliau Pdf a rhifau tudalennau wedi'u rhestru yn y daflen waith gyfredol, gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!