Jak policzyć numery stron plików PDF w programie Excel?
Jeśli w określonym folderze znajduje się wiele plików PDF, teraz chcesz wyświetlić wszystkie te nazwy plików w arkuszu i uzyskać numery stron każdego pliku. Jak możesz szybko i łatwo poradzić sobie z tą pracą w Excelu?
Policz numery stron plików PDF z folderu w arkuszu z kodem VBA
Policz numery stron plików PDF z folderu w arkuszu z kodem VBA
Może to być następujący kod VBA, który pomoże Ci wyświetlić wszystkie nazwy plików Pdf i ich numery stron w arkuszu, wykonaj następujące czynności:
1. Otwórz arkusz roboczy, w którym chcesz pobrać pliki PDF i numery stron.
2. Przytrzymaj ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.
3. Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.
Kod VBA: Wymień wszystkie nazwy plików Pdf i numery stron w arkuszu:
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. Po wklejeniu kodu, a następnie naciśnij F5 klucz do uruchomienia tego kodu oraz plik Przeglądaj pojawi się okno, wybierz folder zawierający pliki PDF, które chcesz wyświetlić i policzyć numery stron, zobacz zrzut ekranu:
5. A następnie kliknij OK przycisk, wszystkie nazwy plików Pdf i numery stron są wymienione w bieżącym arkuszu, patrz zrzut ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!