كيف تحسب أرقام الصفحات لملفات Pdf في Excel؟
إذا كان هناك عدة ملفات Pdf في مجلد معين ، فأنت تريد الآن عرض جميع أسماء الملفات هذه في ورقة عمل ، والحصول على أرقام الصفحات لكل ملف. كيف يمكنك التعامل مع هذه الوظيفة في Excel بسرعة وسهولة؟
احسب أرقام الصفحات لملفات Pdf من مجلد في ورقة العمل برمز VBA
احسب أرقام الصفحات لملفات Pdf من مجلد في ورقة العمل برمز VBA
قد يكون رمز VBA التالي يمكن أن يساعدك في عرض جميع أسماء ملفات Pdf وأرقام كل صفحة في ورقة عمل ، يرجى القيام بذلك على النحو التالي:
1. افتح ورقة عمل حيث تريد الحصول على ملفات Pdf وأرقام الصفحات.
2. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
3. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدة نافذة او شباك.
رمز VBA: سرد جميع أسماء ملفات Pdf وأرقام الصفحات في ورقة العمل:
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. بعد لصق الكود ، ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، و تصفح نافذة منبثقة ، يرجى تحديد المجلد الذي يحتوي على ملفات Pdf التي تريد إدراجها وإحصاء أرقام الصفحات ، انظر لقطة الشاشة:
5. ثم انقر فوق OK ، يتم سرد جميع أسماء ملفات Pdf وأرقام الصفحات في ورقة العمل الحالية ، انظر لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!