excel vba+Adobe Acrobat 提取电子发票明细
本帖最后由 zhengqiren 于 2024-7-7 10:22 编辑本文件已经重写代码，下面链接已更新，请重新下载！
链接已更新：https://pan.baidu.com/s/1_KB_3mZoZjLSvtu6vypi6w?pwd=HHTj
提取码：HHTj
--》本文件2024/7/7最新更新：
1.将合计统计在每一张发票的下方，
2.将原文件名称更改为公司名称+发票名称+金额，储存在【更名后文件夹】中，未提取成功的发票，储存在【异常文件夹】中。
链接: https://pan.baidu.com/s/1x3Sg-ZwsOt7mWEAlTL6PZw?pwd=z47b 提取码: z47b
代码区分为主提取代码模块和函数代码模块两部分，另新增了汇总合计模块。因网友要求，用excel vba提取电子发票明细资料，现将成果奉上，不喜勿喷。
上次发过一次，因为链接弄错了，没有通过验证，所以重新补上。
'///工具--引用里勾选,就是Adobe Acrobat安装目录里的Acrobatlacrobat.tlb
'///本代码在Office365 + Adobe Acrobat pro 下测试通过，win7系统。
图如下：
全电发票，能用么 SU150228 发表于 2023-9-27 00:07
本代码在win10家庭版系统、Office2019家庭版 + Adobe Acrobat pro 2020下测试，显示检测不到数据，是没叫嫦 ...
我目前的代码在朋友提供的近两百张发票中运行通过了 具体怎么使用呀
本帖最后由 zhengqiren 于 2024-7-18 11:58 编辑
chunbulao 发表于 2024-7-14 10:27
刚试了一百多张发票，大部分都成功了。
还有几张没成功，我归纳了一下，主要是代码报下标越界和路径、文 ...
有三张发票（路径文件错误）是因为属性为只读，所以删除不了。加上函数去掉了只读属性，已经可以成功删除。
另几张发票（下票越界）读取时因为读取出来的字符串和其它的都不一样，所以要研究一下看能否解决。
一直显示检测不到数据，是需要额外打开什么吗 本帖最后由 SU150228 于 2023-9-27 00:26 编辑
本代码在win10家庭版系统、Office2019家庭版 + Adobe Acrobat pro 2020下测试，显示检测不到数据，是没叫嫦娥仙子赏月，还是缺少了一些步骤，还是发票和您的一致才行，如果多张不同样的发票如何修改代码 【公告】发帖代码插入以及添加链接教程（有福利）
https://www.52pojie.cn/thread-713042-1-1.html
(出处: 吾爱破解论坛)
十分感谢 谢谢分享
感谢大佬的分享，下载学习借鉴！