VBA提取全电发票内容到EXCEL中

limcse

求助，用VBA方法 提取PDF版全电发票内容到EXCEL中（我是先手动转成WORD，然后再提取），我写的代码能够 提取，但是数据提取不完整，有部分提取不出来，麻烦哪位老师帮我看看，谢谢。

仙女配凡人

这个只建议去买专门的发票OCR识别，腾讯百度阿里都有，上传文件就能自动汇总成Excel表格
免费的可以试试ABBYY、天若OCR

高度保密

全电发票下载excel数据不是更好处理吗？

zpy2

识别到word不需要自动化吗？

limcse

员工基本都下载的PDF版全电发票 打印出来到财务报销。我公司财务需要 提取全电发票的 相关内容 记录到Excel中。

语虚何以言知

数电发票的提取,有需要可私信我

zpy2

limcse 发表于 2023-5-23 08:46
员工基本都下载的PDF版全电发票 打印出来到财务报销。我公司财务需要 提取全电发票的 相关内容 记录到Excel ...

数据提取不完整，

你要提取那些数据？
就 号码 日期 购买方名称        统一社会信用代码
4项？

哪里没有提取出来？

zxsea_7426

这个算不算有结果了:

zpy2

limcse 发表于 2023-5-23 08:46
员工基本都下载的PDF版全电发票 打印出来到财务报销。我公司财务需要 提取全电发票的 相关内容 记录到Excel ...

http://e.anyoupin.cn/EData/?p=tools.ceshi.index/downloadFile&file=pdfToText
下载提取工具

create temp table aa as
select *,iif(RowPosition=129 and wordX=170,Word,'') 发票号码,(select group_concat(Word,'') from 正则表达式数据清洗之全电发票数据提取 b where b.RowPosition=123 and b.Path=a.Path and wordX=170) 开票日期,iif(RowPosition=106 and WordX=20 ,word,'') 购买方名称名称,iif(RowPosition=96 and WordX=54 ,word,'') 统一社会信用代码   from 正则表达式数据清洗之全电发票数据提取 a where RowIdx!='';
select group_concat(发票号码,''),开票日期,group_concat(购买方名称名称,''),group_concat(统一社会信用代码,'') from aa group by Path;
//select * from aa;