excel vba+Adobe Acrobat 提取电子发票明细

zhengqiren · 发表于 2023-9-26 17:05

本帖最后由 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 10.0 Type Library],就是Adobe Acrobat安装目录里的Acrobatlacrobat.tlb
'///本代码在Office365 + Adobe Acrobat pro 下测试通过，win7系统。
图如下：

gxgyj · 发表于 2023-10-10 18:08

全电发票，能用么

zhengqiren · 发表于 2023-9-27 10:56

SU150228 发表于 2023-9-27 00:07
本代码在win10家庭版系统、Office2019家庭版 + Adobe Acrobat pro 2020下测试，显示检测不到数据，是没叫嫦 ...

我目前的代码在朋友提供的近两百张发票中运行通过了

yu520 · 发表于 2023-9-27 09:01

具体怎么使用呀

zhengqiren · 发表于 2024-7-17 13:05

本帖最后由 zhengqiren 于 2024-7-18 11:58 编辑

chunbulao 发表于 2024-7-14 10:27
刚试了一百多张发票，大部分都成功了。
还有几张没成功，我归纳了一下，主要是代码报下标越界和路径、文 ...

有三张发票（路径文件错误）是因为属性为只读，所以删除不了。加上函数去掉了只读属性，已经可以成功删除。
另几张发票（下票越界）读取时因为读取出来的字符串和其它的都不一样，所以要研究一下看能否解决。

dazuyishi1314 · 发表于 2023-9-26 23:36

一直显示检测不到数据，是需要额外打开什么吗

SU150228 · 发表于 2023-9-27 00:07

本帖最后由 SU150228 于 2023-9-27 00:26 编辑

本代码在win10家庭版系统、Office2019家庭版 + Adobe Acrobat pro 2020下测试，显示检测不到数据，是没叫嫦娥仙子赏月，还是缺少了一些步骤，还是发票和您的一致才行，如果多张不同样的发票如何修改代码

zhengqiren · 发表于 2023-9-27 10:55

提示: 该帖被管理员或版主屏蔽

wushaominkk · 发表于 2023-9-28 08:45

【公告】发帖代码插入以及添加链接教程（有福利）
https://www.52pojie.cn/thread-713042-1-1.html
(出处: 吾爱破解论坛)

zh8858 · 发表于 2023-9-28 20:30

十分感谢谢谢分享

shiwenzan · 发表于 2023-10-3 10:30

感谢大佬的分享，下载学习借鉴！

帐号		自动登录	找回密码
密码			注册[Register]

[其他原创] excel vba+Adobe Acrobat 提取电子发票明细

免费评分

本帖被以下淘专辑推荐:

zhengqiren zhengqiren 当前离线好友阅读权限 10 听众最后登录 1970-1-1 头像被屏蔽	楼主\| zhengqiren 发表于 2023-9-27 10:55 提示: 该帖被管理员或版主屏蔽

	回复支持举报