Note: The other languages of the website are Google-translated. Back to English

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:

doc menghitung halaman pdf 1

5. Dan kemudian, klik OK tombol, semua nama file Pdf dan nomor halaman tercantum ke dalam lembar kerja saat ini, lihat tangkapan layar:

doc menghitung halaman pdf 2


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (70)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Bekerja dengan baik! Terimakasih banyak!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak telah memposting pesan informatif seperti itu
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak, kode yang luar biasa sangat membantu saya
Komentar ini diminimalkan oleh moderator di situs
Tidak berfungsi dengan baik, untuk beberapa pdf, untuk beberapa pdf ini menunjukkan 0 dan untuk beberapa nomor halaman yang salah
Komentar ini diminimalkan oleh moderator di situs
Hai, Fawaz,
Kode berfungsi dengan baik di Excel saya, versi Excel mana yang Anda gunakan?
Atau Anda dapat mengirim masalah terperinci atau file pdf Anda ke Email saya: skyyang@extendoffice. Com.
Komentar ini diminimalkan oleh moderator di situs
Hai skyyang,

Saya memiliki masalah yang sama dengan Fawaz. Saya menggunakan MS Office Professional Plus 2013.

Terima kasih atas bantuan Anda!

salam Hormat
Komentar ini diminimalkan oleh moderator di situs
Hal yang sama terjadi di sini halaman pdf yang sama kembali ke nol, Mohon seseorang menjelaskan ini
Komentar ini diminimalkan oleh moderator di situs
Halo, Venkatesh G
Kode berfungsi dengan baik di Excel saya, silakan kirim file pdf Anda ke Email saya: yy@addin99.com.
Sehingga kami dapat memeriksa di mana masalahnya, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
salam


Anda mungkin memiliki masalah dengan program, Anda mencoba menggunakan Office versi 2019, dan halaman halaman dapat dikatakan sebagai halaman utama 9 halaman terakumulasi untuk dijual, dan halaman baru berisi penjualan untuk saya 10.

Por favor me puedes ayudar con ese inconveniente?

Di muka terima kasih banyak.

Atte.

Petrus
Komentar ini diminimalkan oleh moderator di situs
SUCI! Ini luar biasa! Terima kasih banyak! Saya seorang pencetak dan telah melakukan printit.txt dan mengisi dengan tangan! Ini akan membuat pekerjaan mengutip dan memeriksa JAUH LEBIH MUDAH! Terima kasih lagi!!!
Komentar ini diminimalkan oleh moderator di situs
Salam

Ada masalah dengan programnya, saya menggunakan Office versi 2019, dan halaman-halamannya sepertinya berhitung dengan buruk, 9 halaman akumulasi pertama saya mendapatkan nol, di halaman akumulasi kesembilan saya mendapatkan 10.

Bisakah Anda membantu saya dengan ketidaknyamanan itu?

Sebelumnya terima kasih banyak.

Atte.

Petrus
Komentar ini diminimalkan oleh moderator di situs
Kode adalah struktur yang baik untuk bagaimana melakukan hal semacam ini tetapi regexp itu akan memberikan hasil yang tidak dapat diandalkan untuk banyak pdf. Regexp yang sedang dicari (/ Type\s*/Page[^s]), tidak akan berfungsi di pdf AMAN (jumlahnya akan menjadi nol). Juga alat dan versi pdf bervariasi dalam cara menandai halaman. Bisa jadi akurat jika Anda tahu bahwa semua pdf Anda dibuat menggunakan struktur (versi dan alat) yang sama.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak atas jawaban Anda, saya memecahkan masalah dengan menyimpan file sebagai: "PDF yang Dioptimalkan"
Komentar ini diminimalkan oleh moderator di situs
100% setuju dengan Pedro, saya mengalami masalah yang sama dengan Rob di mana beberapa jumlah halaman PDF salah. Tetapi jika Anda memastikan bahwa semua file disimpan sebagai "PDF yang Dioptimalkan" di folder itu, semua halaman akan benar. Ini bekerja untuk saya di lebih dari 100 file PDF terpisah. Anda juga dapat mengoptimalkan secara massal dengan Acrobat Pro. Secara keseluruhan kode hebat, bekerja langsung jika Anda mau.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana jika saya ingin menjalankan subfolder juga?
Komentar ini diminimalkan oleh moderator di situs
Halo, Prashant,
Untuk mendapatkan nomor semua file PDF dari folder dan subfolder, silakan terapkan kode di bawah ini:

Sub Tes()
Redup Aku Selamanya
Redupkan xRg Sebagai Rentang
Redupkan xStr Sebagai String
Redupkan xFd Sebagai FileDialog
Redupkan xFdItem Sebagai Varian
Redupkan xFileName Sebagai String
Redupkan xFileNum Selamanya
Redupkan RegExp Sebagai Objek
Setel xFd = Application.FileDialog(msoFileDialogFolderPicker)
Jika xFd.Tunjukkan = -1 Maka
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
Tetapkan xRg = Rentang("A1")
Range("A:B").Hapus Isi
Range("A1:B1").Font.Bold = True
xRg = "Nama File"
xRg.Offset(0, 1) = "Halaman"
Saya = 2
Panggil SunTest(xFdItem, I)
End If
End Sub

Sub SunTest(xFdItem Sebagai Varian, I As Long)
Redupkan xRg Sebagai Rentang
Redupkan xStr Sebagai String
Redupkan xFd Sebagai FileDialog
Redupkan xFileName Sebagai String
Redupkan xFileNum Selamanya
Redupkan RegExp Sebagai Objek
Redupkan xF Sebagai Objek
Redupkan xSF Sebagai Objek
Redupkan xFso Sebagai Objek
xFileName = Dir(xFdItem & "*.pdf", vbDirectory)
xStr = ""
Lakukan Sementara xFileName <> ""
Sel(I, 1) = xFileName
Atur RegExp = CreateObject("VBscript.RegExp")
RegExp.Global = Benar
RegExp.Pattern = "/Jenis\s*/Halaman[^s]"
xFileNum = File Gratis
Buka (xFdItem & xFileName) Untuk Biner Sebagai #xFileNum
xStr = Spasi(LOF(xFileNum))
Dapatkan #xFileNum, , xStr
Tutup #xFileNum
Sel(I, 2) = RegExp.Execute(xStr).Count
saya = saya + 1
xFileName = Dir
Lingkaran
Kolom("A:B").PenyesuaianOtomatis
Setel xFso = CreateObject("Scripting.FileSystemObject")
Tetapkan xF = xFso.GetFolder(xFdItem)
Untuk Setiap xSF Dalam xF.SubFolder
Panggil SunTest(xSF.Path & "\", I)
Next
End Sub

Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Kode subfolder Anda berfungsi dengan baik! terima kasih
Komentar ini diminimalkan oleh moderator di situs
Ini luar biasa, terima kasih. Saya ingin menjalankan subfolder juga. Di mana/bagaimana dalam kode di atas saya menambahkan perintah tambahan ini? akan seperti apa semuanya?
Komentar ini diminimalkan oleh moderator di situs
Bisakah Anda membantu saya juga mendapatkan pembuat dan dimensi file?
Komentar ini diminimalkan oleh moderator di situs
Ini benar-benar hebat. Tetapi nama sub folder tidak masuk ke kolom terpisah dengan nama file PDF & Jumlah halaman. Bisakah Anda membantu dalam hal ini?
Komentar ini diminimalkan oleh moderator di situs
Fantastis!!!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak.
Komentar ini diminimalkan oleh moderator di situs
Halo,
Sama sama. Senang itu membantu. Pertanyaan, jangan ragu untuk menghubungi kami. Semoga harimu menyenangkan.
Hormat kami,
Mandy
Komentar ini diminimalkan oleh moderator di situs
Hai Mandy,
Saya mendapatkan kesalahan Run-time '5': Panggilan prosedur atau argumen tidak valid
Debug pergi ke baris ini: xStr = Spasi(LOF(xFileNum))
Komentar ini diminimalkan oleh moderator di situs
Saya sedang menjalankan tetapi saya mendapatkan kesalahan dan debug menunjukkan xStr = Space(LOF(xFileNum)) sebagai masalahnya.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak.
Demikian juga, dapatkah Anda menghitung dan mengkategorikan halaman A3 dan A4?
Komentar ini diminimalkan oleh moderator di situs
Ini kode yang saya temukan di suatu tempat di internet, tidak seoptimal metode Anda:
Opsi Eksplisit
PDFDoc Publik Sebagai AcroPDDoc, PDFPage Sebagai Objek, A3&, A4&

Sub Utama ()
Dim fso Sebagai FileSystemObject, fld Sebagai Folder, fil Sebagai File, s$, i&, Arr()
Setel fso = FileSystemObject Baru
Setel PDFDoc = AcroPDDoc Baru
Setel fld = fso.GetFolder(ThisWorkbook.Path)
Redim Arr(1 Sampai 1000, 1 Sampai 3)
Untuk Setiap fil Dalam fld.Files
s = fil.Nama
Jika Kanan(s, 4) = ".pdf" Maka
CountPagesPDF (Buku Kerja Ini.Jalur & "\" & s)
i = i + 1
Arr(i, 1) = s
Arr(i, 2) = A3
Arr(i, 3) = A4
End If
Next
Range("A2:C" & Cells.Rows.Count).Clear
Range("A2:C" & (i + 1)) = Arr
Setel Halaman PDF = Tidak Ada
Setel PDFDoc = Tidak Ada
Tetapkan fso = Tidak ada
End Sub

Sub HitungHalamanPDF(FullFileName$)
Redupkan i&, n&, x, y
A3 = 0
A4 = 0
PDFDoc.Open (NamaFile Lengkap)
n = PDFDoc.GetNumPages
Untuk i = 0 Sampai n - 1
Setel PDFPage = PDFDoc.AcquirePage(i)
x = PDFPage.GetSize().x
y = PDFPage.GetSize().y
Jika x + y > 1500 Maka A3 = A3 + 1 Lain A4 = A4 + 1
Next
PDFDoc.Tutup
End Sub
Komentar ini diminimalkan oleh moderator di situs
Wow! terima kasih banyak telah berbagi, kode VBA ini adalah pembunuh!! Ini bekerja dengan sempurna dengan Excel O365
Komentar ini diminimalkan oleh moderator di situs
wow. subfolder bekerja dengan baik. dapatkah Anda membagikan cara menambahkan "jalur file" dan "ukuran file" juga?
Komentar ini diminimalkan oleh moderator di situs
Halo, Daphne,
Untuk mengatasi masalah Anda, silakan terapkan kode di bawah ini, silakan coba, semoga dapat membantu Anda!

Sub Tes()
Redup Aku Selamanya
Redupkan xRg Sebagai Rentang
Redupkan xStr Sebagai String
Redupkan xFd Sebagai FileDialog
Redupkan xFdItem Sebagai Varian
Redupkan xFileName Sebagai String
Redupkan xFileNum Selamanya
Redupkan RegExp Sebagai Objek
Setel xFd = Application.FileDialog(msoFileDialogFolderPicker)
Jika xFd.Tunjukkan = -1 Maka
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
Tetapkan xRg = Rentang("A1")
Range("A:B").Hapus Isi
Range("A1:B1").Font.Bold = True
xRg = "Nama File"
xRg.Offset(0, 1) = "Halaman"
xRg.Offset(0, 2) = "Jalur"
xRg.Offset(0, 3) = "Ukuran(b)"
Saya = 2
Panggil SunTest(xFdItem, I)
End If
End Sub

Sub SunTest(xFdItem Sebagai Varian, I As Long)
Redupkan xRg Sebagai Rentang
Redupkan xStr Sebagai String
Redupkan xFd Sebagai FileDialog
Redupkan xFileName Sebagai String
Redupkan xFileNum Selamanya
Redupkan RegExp Sebagai Objek
Redupkan xF Sebagai Objek
Redupkan xSF Sebagai Objek
Redupkan xFso Sebagai Objek
xFileName = Dir(xFdItem & "*.pdf", vbDirectory)
xStr = ""
Lakukan Sementara xFileName <> ""
Sel(I, 1) = xFileName
Atur RegExp = CreateObject("VBscript.RegExp")
RegExp.Global = Benar
RegExp.Pattern = "/Jenis\s*/Halaman[^s]"
xFileNum = File Gratis
Buka (xFdItem & xFileName) Untuk Biner Sebagai #xFileNum
xStr = Spasi(LOF(xFileNum))
Dapatkan #xFileNum, , xStr
Tutup #xFileNum
Sel(I, 2) = RegExp.Execute(xStr).Count
Sel(I, 3) = xFdItem & xFileName
Sel(I, 4) = FileLen(xFdItem & xFileName)
saya = saya + 1
xFileName = Dir
Lingkaran
Kolom("A:B").PenyesuaianOtomatis
Setel xFso = CreateObject("Scripting.FileSystemObject")
Tetapkan xF = xFso.GetFolder(xFdItem)
Untuk Setiap xSF Dalam xF.SubFolder
Panggil SunTest(xSF.Path & "\", I)
Next
End Sub
Komentar ini diminimalkan oleh moderator di situs
Ini sangat bagus. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Hai skyyang,
Maaf menabrak posting lama.
Terima kasih atas kode di atas, ini sangat membantu saya!
Maukah Anda dengan baik hati membagikan cara menambahkan 'tanggal pembuatan file' juga di mana formatnya hanya tanggal, tidak termasuk waktu, DD/MMM/YYYY?
Di mana pun saya mencari, sepertinya saya tidak dapat mengedit kode Anda untuk melakukan ini dengan benar sendiri..

Terima kasih sebelumnya!

sinar
Komentar ini diminimalkan oleh moderator di situs
oh saya mengerti, ini adalah seluruh kode. Saya mencoba menambahkan yang asli dan mendapatkan kesalahan. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Halo.

Apakah ada cara untuk juga menambahkan nomor halaman dokumen dan saya juga mendapatkan kesalahan dan ini adalah pesannya:
xStr = Spasi(LOF(xFileNum))


Terima kasih banyak.
Komentar ini diminimalkan oleh moderator di situs
Kode luar biasa! Saya tidak bisa membuatnya bekerja di subfolder. Adakah yang bisa membantu saya?
Komentar ini diminimalkan oleh moderator di situs
suara conseguiu achar uma maneira de funcionar em subpastas?
Komentar ini diminimalkan oleh moderator di situs
Halo, Flavio,
Untuk mendapatkan nomor semua file PDF dari folder dan subfolder, silakan terapkan kode di bawah ini:

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
Set xRg = Range("A1")
Range("A:B").ClearContents
Range("A1:B1").Font.Bold = True
xRg = "File Name"
xRg.Offset(0, 1) = "Pages"
I = 2
Call SunTest(xFdItem, I)
End If
End Sub

Sub SunTest(xFdItem As Variant, I As Long)
Dim xRg As Range
Dim xStr As String
Dim xFd As FileDialog
Dim xFileName As String
Dim xFileNum As Long
Dim RegExp As Object
Dim xF As Object
Dim xSF As Object
Dim xFso As Object
xFileName = Dir(xFdItem & "*.pdf", vbDirectory)
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
Set xFso = CreateObject("Scripting.FileSystemObject")
Set xF = xFso.GetFolder(xFdItem)
For Each xSF In xF.SubFolders
Call SunTest(xSF.Path & "\", I)
Next
End Sub


Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Sim berfungsi! muito obrigado

Alguns documentos .pdf estao sendo Analisados ​​com 0 paginas incorretamente. Saberia me dizer atau porque?
Komentar ini diminimalkan oleh moderator di situs
Halo, Flavio,
Anda dapat mengunggah file PDF Anda di sini, sehingga kami dapat memeriksa masalahnya.
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Opa, super top, consegue adicionar para aparecer o tamanho do arquivo, na terceira coluna ?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak
Komentar ini diminimalkan oleh moderator di situs
Halo, berfungsi dengan baik, terima kasih telah berbagi ini. Satu pertanyaan, apakah mungkin untuk menambahkan yang juga menghitung file .doc dan .docx microsoft word?
Komentar ini diminimalkan oleh moderator di situs
Hai, sroczeto,
Untuk menghitung nomor halaman .doc dan .docx serta file PDF, silakan gunakan kode berikut:
Sub Tes()
Redup Aku Selamanya
Redupkan xRg Sebagai Rentang
Redupkan xStr Sebagai String
Redupkan xFd Sebagai FileDialog
Redupkan xFdItem Sebagai Varian
Redupkan xFileName Sebagai String
Redupkan xFileNum Selamanya
Redupkan RegExp Sebagai Objek
Redupkan xWdApp
redup xWd
Setel xFd = Application.FileDialog(msoFileDialogFolderPicker)
Jika xFd.Tunjukkan = -1 Maka
Application.ScreenUpdating = Salah
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.pdf", vbDirectory)
Tetapkan xRg = Rentang("A1")
Range("A:B").Hapus Isi
Range("A1:B1").Font.Bold = True
xRg = "Nama File"
xRg.Offset(0, 1) = "Halaman"
Saya = 2
xStr = ""
Lakukan Sementara xFileName <> ""
Sel(I, 1) = xFileName
Atur RegExp = CreateObject("VBscript.RegExp")
RegExp.Global = Benar
RegExp.Pattern = "/Jenis\s*/Halaman[^s]"
xFileNum = File Gratis
Buka (xFdItem & xFileName) Untuk Biner Sebagai #xFileNum
xStr = Spasi(LOF(xFileNum))
Dapatkan #xFileNum, , xStr
Tutup #xFileNum
Sel(I, 2) = RegExp.Execute(xStr).Count
saya = saya + 1
xFileName = Dir
Lingkaran
xFileName = Dir(xFdItem & "*.docx", vbDirectory)
Setel xWdApp = CreateObject("Word.Application")
Lakukan Sementara xFileName <> ""
Sel(I, 1) = xFileName
xFileNum = File Gratis
Setel xWd = GetObject(xFdItem & xFileName)
Sel(I, 2) = xWd.ActiveWindow.Panes(1).Pages.Count
xWd.Tutup Salah
saya = saya + 1
xFileName = Dir
Lingkaran
Kolom("A:B").PenyesuaianOtomatis
End If
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Terima kasih sobat! Ini berfungsi pada pdf dan docx, tetapi tidak pada file doc. Dan satu pertanyaan lagi, dapatkah Anda menambahkan bahwa ini juga akan dihitung dalam subfolder?
Komentar ini diminimalkan oleh moderator di situs
Saya telah membuka file pdf yang path dan namanya disebutkan di kolom sel excel "C9". Saya hanya ingin mendapatkan nomor halaman terakhir di excel vba tolong bantu saya
Komentar ini diminimalkan oleh moderator di situs
Halo, ini benar-benar berfungsi dengan baik, terima kasih. Apakah mungkin untuk mendapatkan ukuran halaman dari halaman pertama di kolom baru? contoh 8.5 x 11, 11 x 17 dst.
Komentar ini diminimalkan oleh moderator di situs
Halo, ini bekerja dengan sangat baik terima kasih!, apakah mungkin mendapatkan ukuran halaman untuk halaman pertama dokumen PDF?
Komentar ini diminimalkan oleh moderator di situs
Halo,
Apakah mungkin juga untuk mendapatkan dimensi halaman dan pembuat pdf di makro ini?
dapatkah seseorang membantu saya dengan ini?
Komentar ini diminimalkan oleh moderator di situs
apakah ada cara untuk memasukkan .doc Saya perhatikan itu berfungsi untuk .docx tetapi tidak untuk .doc
Komentar ini diminimalkan oleh moderator di situs
Hai, John, Untuk menghitung halaman .doc dan .docx serta file PDF, silakan gunakan kode berikut: Halaman Sub Statistik()
Redup Aku Selamanya
Redupkan xRg Sebagai Rentang
Redupkan xStr Sebagai String
Redupkan xFd Sebagai FileDialog
Redupkan xFdItem Sebagai Varian
Redupkan xFileName Sebagai String
Redupkan xFileNum Selamanya
Redupkan RegExp Sebagai Objek
Redupkan xWdApp
redup xWd
Setel xFd = Application.FileDialog(msoFileDialogFolderPicker)
Jika xFd.Tunjukkan = -1 Maka
Application.ScreenUpdating = Salah
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.pdf", vbDirectory)
Tetapkan xRg = Rentang("A1")
Range("A:B").Hapus Isi
Range("A1:B1").Font.Bold = True
xRg = "Nama File"
xRg.Offset(0, 1) = "Halaman"
Saya = 2
xStr = ""
Lakukan Sementara xFileName <> ""
Sel(I, 1) = xFileName
Atur RegExp = CreateObject("VBscript.RegExp")
RegExp.Global = Benar
RegExp.Pattern = "/Jenis\s*/Halaman[^s]"
xFileNum = File Gratis
Buka (xFdItem & xFileName) Untuk Biner Sebagai #xFileNum
xStr = Spasi(LOF(xFileNum))
Dapatkan #xFileNum, , xStr
Tutup #xFileNum
Sel(I, 2) = RegExp.Execute(xStr).Count
saya = saya + 1
xFileName = Dir
Lingkaran
xFileName = Dir(xFdItem & "*.docx", vbDirectory)
Setel xWdApp = CreateObject("Word.Application")
Lakukan Sementara xFileName <> ""
Sel(I, 1) = xFileName
xFileNum = File Gratis
Setel xWd = GetObject(xFdItem & xFileName)
Sel(I, 2) = xWd.ActiveWindow.Panes(1).Pages.Count
xWd.Tutup Salah
saya = saya + 1
xFileName = Dir
Lingkaran
xFileName = Dir(xFdItem & "*.doc", vbDirectory)
Setel xWdApp = CreateObject("Word.Application")
Lakukan Sementara xFileName <> ""
Sel(I, 1) = xFileName
xFileNum = File Gratis
Setel xWd = GetObject(xFdItem & xFileName)
Sel(I, 2) = xWd.ActiveWindow.Panes(1).Pages.Count
xWd.Tutup Salah
saya = saya + 1
xFileName = Dir
Lingkaran
Kolom("A:B").PenyesuaianOtomatis
End If
Application.ScreenUpdating = Benar
End SubSilakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih ini banyak membantu.
Komentar ini diminimalkan oleh moderator di situs
Hai, saya memiliki folder dengan beberapa subfolder Bagaimana saya bisa menentukan Path folder induk tanpa memilihnya secara manual. Kemudian juga output nama folder anak. Terima kasih sebelumnya 
Komentar ini diminimalkan oleh moderator di situs
HI diurutkan saya telah mengedit kode yang dihapus XFD dan mengatur filpath sebagai xfditem
Komentar ini diminimalkan oleh moderator di situs
Hai Skyyang,Pertama saya ingin mengucapkan terima kasih atas pekerjaan luar biasa yang Anda lakukan, dan waktu yang Anda ambil...Saya sedang mencari kode VBA untuk beberapa saat: Saya memiliki lembar Excel dengan daftar di kolom "J" dari file pdf, xlsx dan elm yang terletak di direktori ruang data (dengan subdirektori) Nama file lengkap dengan tipe X:\Data_Room\Sub_directory_1\file.pdfKode harus mengisi kolom "I" dengan jumlah halaman masing-masing .pdf dan file .xls (tidak perlu yang lain, cel harus tetap kosong)Bisakah Anda membantu saya?
Komentar ini diminimalkan oleh moderator di situs
Adakah kemungkinan ini dapat diperluas untuk menarik nomor Bates dari halaman pertama setiap pdf?
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan