Bagaimana cara menghitung nomor halaman file Pdf di Excel?
Jika ada beberapa file Pdf dalam folder tertentu, sekarang, Anda ingin menampilkan semua nama file ini di lembar kerja, dan mendapatkan nomor halaman dari setiap file. Bagaimana Anda bisa menangani pekerjaan ini di Excel dengan cepat dan mudah?
Hitung nomor halaman file Pdf dari folder di lembar kerja dengan kode VBA
Hitung nomor halaman file Pdf dari folder di lembar kerja dengan kode VBA
Mungkin kode VBA berikut dapat membantu Anda menampilkan semua nama file Pdf dan setiap nomor halamannya di lembar kerja, lakukan seperti ini:
1. Buka lembar kerja tempat Anda ingin mendapatkan file Pdf dan nomor halaman.
2. Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.
3. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Modul Jendela.
Kode VBA: Cantumkan semua nama file Pdf dan nomor halaman di lembar kerja:
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. Setelah menempelkan kode, lalu tekan F5 kunci untuk menjalankan kode ini, dan a Browse jendela muncul, pilih folder yang berisi file Pdf yang ingin Anda daftarkan dan hitung nomor halaman, lihat tangkapan layar:
5. Dan kemudian, klik OK tombol, semua nama file Pdf dan nomor halaman tercantum ke dalam lembar kerja saat ini, lihat tangkapan layar:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!