文件夹下若干个pdf文件，想把文件名和对应的文件页数提取出来，填入表中。

today77

文件夹下若干个pdf文件，想把文件名和对应的文件页数提取出来，填入表中。已经写了代码但是提取数来的页数都是零，请大神指点一下怎么修改。谢谢！！

1. Sub ReadPDFs()
   
2.     Dim filePath As String
   
3.     Dim fileName As String
   
4.     Dim fileNumber As Integer
   
5.     Dim pageCount As Integer
   
6.     Dim row As Integer
   
7.    
   
8.     Range("A:B").ClearContents
   
9. 
   
10.     ' Set the file path and start row
    
11.     filePath = ThisWorkbook.path & "\合集"    ' 设置PDF文件夹路径
    
12.     row = 1
    
13. 
    
14.     ' Loop through each file in the folder
    
15.     fileName = Dir(filePath & "*.pdf")
    
16.     Do While fileName <> ""
    
17.         ' Open the PDF file and count the number of pages
    
18.         fileNumber = FreeFile()
    
19.         Open filePath & fileName For Binary Access Read As #fileNumber
    
20.         pageCount = LOF(fileNumber) / 1024 / 1024      ' convert bytes to megabytes
    
21.         Close #fileNumber
    
22. 
    
23.         ' Add the file name and page count to the worksheet
    
24.         Range("A" & row).Value = fileName
    
25.         Range("B" & row).Value = pageCount
    
26. 
    
27.         ' Move to the next row
    
28.         row = row + 1
    
29. 
    
30.         ' Get the next file name
    
31.         fileName = Dir()
    
32.     Loop
    
33.    
    
34.     MsgBox "完成！"
    
35. End Sub
    

复制代码

zpy2

试试这个命令行工具
https://e.anyoupin.cn/EData/?p=tools.ceshi.index/downloadTreeFile&file=/52/PdfPages.zip

https://m.bilibili.com/video/BV1GN41157Qg?buvid=XX85E838539534AD650323D79CEE8DA100517&from_spmid=default-value&is_story_h5=false&mid=FSMZLyVVbtrPTKay0%2Fc9Fg%3D%3D&p=1&plat_id=116&share_from=ugc&share_medium=android&share_plat=android&share_session_id=09f2a987-d53c-4002-aeff-305008d89e04&share_source=COPY&share_tag=s_i&spmid=main.ugc-video-detail.0.0&timestamp=1701946144&unique_k=D3aq0K2&up_id=634143044&share_times=1

excel玉米

在这里找到一个函数，做了一下缝合
https://blog.51cto.com/shenjiren/7198081

fxl447098457

excel玉米 发表于 2023-12-8 08:46
在这里找到一个函数，做了一下缝合
https://blog.51cto.com/shenjiren/7198081

测试了有的读不出来。

opiona

43楼 https://club.excelhome.net/thread-1654951-1-1.html

perfect131

fxl447098457 发表于 2023-12-8 13:08
测试了有的读不出来。

是的
PDF-1.7 的可以用 /Count \d+, 但也不一定全部 PDF-1.7 都有，这也看 用的什么解析器
PDF-1.5 基本都没有 /Count

perfect131

https://club.excelhome.net/thread-1679609-1-1.html