Excel'de Pdf dosyalarının sayfa numaralarını nasıl hesaplayabilirim?
Belirli bir klasörde birden fazla Pdf dosyası varsa, şimdi tüm bu dosya adlarını bir çalışma sayfasında görüntülemek ve her dosyanın sayfa numaralarını almak istersiniz. Excel'de bu işle nasıl hızlı ve kolay bir şekilde başa çıkabilirsiniz?
Çalışma sayfasındaki bir klasörden VBA kodu ile Pdf dosyalarının sayfa numaralarını sayın
Çalışma sayfasındaki bir klasörden VBA kodu ile Pdf dosyalarının sayfa numaralarını sayın
Aşağıdaki VBA kodu, tüm Pdf dosya adlarını ve her sayfa numaralarını bir çalışma sayfasında görüntülemenize yardımcı olabilir, lütfen şu şekilde yapın:
1. Pdf dosyalarını ve sayfa numaralarını almak istediğiniz bir çalışma sayfası açın.
2. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
3. tıklayın Ekle > modülve aşağıdaki makroyu modül Pencere.
VBA kodu: Çalışma sayfasındaki tüm Pdf dosya 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 F5 bu kodu çalıştırmak için anahtar ve bir Araştır pencere açılır, lütfen listelemek ve sayfa numaralarını saymak istediğiniz Pdf dosyalarını içeren klasörü seçin, ekran görüntüsüne bakın:
5. Ve sonra tıklayın OK düğmesi, tüm Pdf dosya adları ve sayfa numaraları mevcut çalışma sayfasında listelenir, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!