Conas uimhreacha leathanaigh na gcomhad Pdf a chomhaireamh in Excel?
Má tá iliomad comhad Pdf i bhfillteán ar leith, anois, ba mhaith leat na hainmneacha comhaid seo go léir a thaispeáint i mbileog oibre, agus uimhreacha leathanaigh gach comhaid a fháil. Conas a d’fhéadfá déileáil leis an bpost seo in Excel go tapa agus go héasca?
Comhairigh uimhreacha leathanaigh na gcomhad Pdf ó fhillteán i mbileog oibre le cód VBA
Comhairigh uimhreacha leathanaigh na gcomhad Pdf ó fhillteán i mbileog oibre le cód VBA
B’fhéidir gurb é an cód VBA seo a leanas a chabhróidh leat gach ainm comhaid Pdf agus a n-uimhreacha gach leathanach a thaispeáint i mbileog oibre, déan mar seo le do thoil:
1. Oscail bileog oibre inar mian leat na comhaid Pdf agus uimhreacha leathanaigh a fháil.
2. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
3. Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas sa Modúil Fuinneog.
Cód VBA: Liostaigh gach ainm comhaid Pdf agus uimhir leathanaigh ar an mbileog oibre:
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. Tar éis an cód a ghreamú, agus ansin brúigh F5 eochair chun an cód seo a rith, agus a Brabhsáil tá an fhuinneog popped amach, roghnaigh an fillteán ina bhfuil na comhaid Pdf a theastaíonn uait uimhreacha leathanaigh a liostáil agus a chomhaireamh, féach an scáileán:
5. Agus ansin, cliceáil OK cnaipe, liostaítear gach ainm comhaid Pdf agus uimhir leathanaigh ar an mbileog oibre reatha, féach an scáileán:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!