Excel kullanarak PDF dosyalarındaki sayfa sayısını nasıl sayabilirsiniz?
Bir klasörde birden fazla PDF dosyası varsa ve bunların dosya adlarını Excel’de sayfa sayılarıyla birlikte listelemeniz gerekiyorsa, bunu basit bir VBA makrosuyla kolayca gerçekleştirebilirsiniz. Bu eğitim, PDF dosya adlarını ve karşılık gelen sayfa sayılarını bir Excel çalışma sayfasında hızlıca çıkarmanıza ve görüntülemenize yardımcı olacak adımları size adım adım gösterecektir.
VBA ile Excel'de PDF Dosyaları adlarını ve sayfa numaralarını görüntüleyin
VBA ile Excel'de PDF Dosyaları adlarını ve sayfa numaralarını görüntüleyin
Aşağıdaki VBA kodu, tüm PDF dosyalarının adlarını ve sayfa numaralarını bir çalışma sayfasında görüntülemenize yardımcı olur. Lütfen aşağıdaki adımları izleyin:
1. PDF dosyaları ve sayfa numaralarını almak istediğiniz çalışma sayfasını açın.
2. "ALT" + "F11" tuşlarına basılı tutarak "Microsoft Visual Basic for Applications" penceresini açın.
3. "Insert" (Ekle) > "Module" (Modül) seçeneğine tıklayıp aşağıdaki makroyu "Module" (Modül) penceresine yapıştırın.
VBA kodu: Çalışma sayfasında tüm PDF Dosyaları adlarını ve sayfa numaralarını listeleyin:
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. Kodu yapıştırdıktan sonra bu kodu çalıştırmak için "F5" tuşuna basın; ardından bir "Browse" (Göz At) penceresi açılacak ve PDF dosyalarını listeleyip sayfa sayılarını saymak istediğiniz klasörü seçmenizi isteyecektir. Detaylı bilgi için ekran görüntüsüne göz atın:
5. Ardından "Tamam" düğmesine tıklayın; tüm PDF dosyalarının adları ve sayfa numaraları Geçerli Çalışma Sayfası’na listelenir. Ekran görüntüsüne bakın:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile güçlendirin ve hiç yaşanmamış bir verimlilik deneyimi yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli arayüz getirir ve işinizi çok daha kolay hale getirir
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project’te sekmeli düzenleme ve okumayı etkinleştirin.
- Birden fazla belgeyi aynı pencerenin yeni sekmelerinde açın ve oluşturun, yeni pencerelerde değil.
- Günlük üretkenliğinizi %50 artırır ve size her gün yüzlerce fare tıklamasından tasarruf sağlar!
Tüm Kutools eklentileri, tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentilerin yanı sıra Office Tab Pro’yu da içerir; böylece Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamaları arasında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar