Ինչպե՞ս հաշվել Pdf ֆայլերի էջերի համարները Excel- ում:
Եթե որոշակի թղթապանակում կան բազմաթիվ Pdf ֆայլեր, ապա այժմ ցանկանում եք ցուցադրել այս բոլոր ֆայլերի անունները աշխատանքային թերթում և ստանալ յուրաքանչյուր ֆայլի էջերի համարները: Ինչպե՞ս կարող եք արագ և հեշտությամբ գործ ունենալ Excel- ում այս աշխատանքի հետ:
Հաշվեք Pdf ֆայլերի էջերի համարները VBA կոդով աշխատաթերթում գտնվող թղթապանակից
Հաշվեք Pdf ֆայլերի էջերի համարները VBA կոդով աշխատաթերթում գտնվող թղթապանակից
Կարող է լինել հետևյալ VBA կոդը, որը կօգնի ձեզ ցուցադրել Pdf ֆայլի բոլոր անունները և դրանց յուրաքանչյուր էջի համարը աշխատանքային թերթում, խնդրում ենք արեք հետևյալ կերպ.
1, Բացեք աշխատանքային թերթ, որտեղ ցանկանում եք ստանալ Pdf ֆայլերը և էջերի համարները:
2, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.
3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը ՝ Մոդուլներ Պատուհանը:
VBA կոդ. Աշխատաթերթում նշեք Pdf ֆայլի բոլոր անունները և էջերի համարները.
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, Կոդի տեղադրումից հետո սեղմեք F5 այս կոդը գործարկելու բանալին, և ա Թերթել պատուհանը դուրս է եկել, ընտրեք այն թղթապանակը, որը պարունակում է Pdf ֆայլեր, որոնք ցանկանում եք թվարկել և հաշվել էջերի համարները, տե՛ս նկարը.
5, Եվ հետո, կտտացրեք OK կոճակը, Pdf ֆայլի բոլոր անունները և էջերի համարները նշված են ընթացիկ աշխատանքային թերթում, տես նկարի նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: