VBA批量统计PDF页数的问题

yuhan4488

提取pdf文件名和页码

1. Sub pdfcount()
   
2. Dim FileName As String
   
3. Dim Match, Str$, P%
   
4. ActiveSheet.UsedRange.Clear
   
5. FileToOpen = Application.GetOpenFilename("PDF文件(*.PDF),*.PDF", , "Please select the files...", , True)
   
6. If IsArray(FileToOpen) = 0 Then
   
7.         'MsgBox "没有选择文件"
   
8.         MsgBox "No files are selected!"
   
9.         WS1.Unprotect
   
10.         GoTo ErrorHandler
    
11. End If
    
12. For i = 1 To UBound(FileToOpen)
    
13.        userfilename = FileToOpen(i)
    
14. With CreateObject("scripting.filesystemobject").opentextfile(FileToOpen(i))
    
15.     Str = .readall
    
16.     .Close
    
17. End With
    
18. P = 0
    
19. With CreateObject("vbscript.regexp")
    
20.     .Global = True
    
21.     .MultiLine = True
    
22.     .Pattern = "\/Count ([\d]+)"
    
23.     If .test(Str) Then
    
24.         For Each Match In .Execute(Str)
    
25.             If Val(Match.submatches(0)) > P Then P = Val(Match.submatches(0))
    
26.         Next Match
    
27.     End If
    
28. End With
    
29. Cells(1, 1) = "文件名"
    
30. Cells(1, 2) = "页码"
    
31. 'Cells(i + 1, 1) = userfilename
    
32. Cells(i + 1, 1) = Split(userfilename, "")(UBound(Split(userfilename, "")))
    
33. Cells(i + 1, 2).Value = P
    
34. Next i
    
35. ErrorHandler:
    
36. MsgBox ("统计页码完成")
    
37. End Sub

复制代码