VBA Power Query 获取文件夹（包括子文件夹）内的 PDF 页数

perfect131

               求助帖：https://club.excelhome.net/thread-1679300-1-3.html
               参考 2 楼的方案 写了个 VBA 执行 PQ M函数 获取 PDF页数   
M 函数


vba 效果

vitrel

我最近想用VB来实现“获取PDF总页数”这个功能，
不知道是不是PDF文件格式有很多个版本的原因，
网上找到的方法，没有一种能准确应对各个PDF文件的，
只有楼主的这套Power Query代码，是我测试过，唯一一个能准确获取各个PDF文件总页数的方法，
但是，VB是不支持Power Query的，而我又看不懂这段代码，
请问一下楼主，这段代码是用什么原理获取PDF的总页数的呢？
能否根据其原理改用纯VB/VBA语言来获取呢？

fxl447098457

vitrel 发表于 2023-12-23 08:02
我最近想用VB来实现“获取PDF总页数”这个功能，
不知道是不是PDF文件格式有很多个版本的原因，
网上找到 ...

PQ是依赖.net 平台的pdf2text.dll实现的。开源的pdfium也能获取。https://club.excelhome.net/forum ... ;page=1#pid11397769

perfect131

vitrel 发表于 2023-12-23 08:02
我最近想用VB来实现“获取PDF总页数”这个功能，
不知道是不是PDF文件格式有很多个版本的原因，
网上找到 ...

这段代码是用什么原理获取PDF的总页数的呢
答：PQ有自己的 PDF解析器（PDF解密算法），解析后获取内容 页数都是小事

3 楼说的 pdfium，pdf2text.dll 都是解析器（都有自己的PDF解密算法)
当然可以 根据其原理改用纯VB/VBA语言来获取，只不过需要写解析器（写PDF解密算法有难度)，所以一般都用开源库来解决

如果想 /Count 方式获取页数那也可以
%PDF-1.7 基本都有,也不是所有
%PDF-1.5 可有可无 这也看用的什么软件加密的
%PDF-1.3 很少有 /Count
所以 很难写出通用

vitrel

fxl447098457 发表于 2023-12-23 09:37
PQ是依赖.net 平台的pdf2text.dll实现的。开源的pdfium也能获取。https://club.excelhome.net/forum.php? ...

感谢您的指引，我正在试用，谢谢！

vitrel

perfect131 发表于 2023-12-23 13:14
这段代码是用什么原理获取PDF的总页数的呢
答：PQ有自己的 PDF解析器（PDF解密算法），解析后获取内容  ...

感谢您的解答，您解开了我一直以来存在的多个疑问，一下子就开阔了，感谢感谢！

mythqiu

pdf取得页数，学习了，如何vba打印pdf指定页码？

loquat

这么简单的算法，管准吗？

wujinyang517

很棒。刚好我可以借鉴学习用vba操作pq。太棒了