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

zhengqiren

本文件已经重写代码，下面链接已更新，请重新下载！
链接已更新：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

全电发票，能用么

zhengqiren

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

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

xigxmmbc

    PDFName = Dir(Pth & "*.pdf")
    Do While PDFName <> ""
       If PDFName = ".." Then PDFName = Dir(Pth & "*.pdf")  '排除当前目录和上级目录
       If PDFName <> "" Then
           i = i + 1
          Call Imp_Into_XL(Pth & PDFName)
          PDFName = Dir(Pth & "*.pdf")
       End If
    Loop
    sht.Columns.AutoFit
    MsgBox "操作完成！本次处理发票共 " & i & " 份。"这一段的    PDFName = Dir(Pth & "*.pdf")  只能读取第一个pdf文件，不能读取下一个。
原因是文件只读，没有删除，所以循环读取只读的那一个。

yu520

具体怎么使用呀

zhengqiren

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

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

dazuyishi1314

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

SU150228

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

wushaominkk

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

zh8858

十分感谢   谢谢分享

shiwenzan

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