欢迎来到尧图网

客户服务 关于我们

您的位置:首页 > 汽车 > 时评 > VBA+FreePic2Pdf 找出没有放入PDF组合的单个PDF工艺文件

VBA+FreePic2Pdf 找出没有放入PDF组合的单个PDF工艺文件

2025/3/17 18:32:33 来源:https://blog.csdn.net/weixin_44819434/article/details/146221242  浏览:    关键词:VBA+FreePic2Pdf 找出没有放入PDF组合的单个PDF工艺文件

设计部门针对某个项目做了一个工艺汇总报告,原先只要几十个工艺文件,组合成一个PDF,但后来要求要多放点PDF进去,但工艺文件都混在一起又不知道哪些是重复的,找上我让我帮忙处理一下,我开始建议让她重新再组合一PDF就行了,但她说前面有一些说明资料不在她手上,她只能将原来的组合文件和新加入的工艺文件再组合。

1、首先考虑怎么将PDF中存在的工艺书签复制出来
PDF中的书签目录是这样的
在这里插入图片描述
而所有的工艺PDF文件有不少,如果一个一个去对,还是要花不少时间的
在这里插入图片描述

这里找到一个工具FreePic2Pdf,按照这个使用方法提取出了PDF中已经有的工艺目录在这里插入图片描述

将其复制到EXCEL中去。

二、然后考虑怎么将文件夹中所有的PDF文件,与已经有的记录进行比对。
利用VBA的DIR函数获取文件名

Sub abc()Dim filepath As String, filename As String
Dim ljdm As Variantfilepath = ThisWorkbook.Path & "\22-1113PDF\"
filename = Dir(filepath & "*.pdf")
Do While filename <> "" '判断文件名不为空时
For i = 1 To 700'这里只要比PDF文件个数多就行ljdm = filename '获取文件名中的零件代码
ActiveSheet.Cells(i, 2) = ljdm
filename = Dir()  
Next
LoopEnd Sub

然后两列数据进行排序、查重,就搞定了。
![在这里插入图片描述](https://i-blog.csdnimg.cn/direct/312f24ecdafa488ea0a135a7de33ab36.png在这里插入图片描述

最后在文件夹中排序,排好序后就和表格中的一样顺序了,将“有”的PDF文件删除,剩下的就是原来PDF组合中没有的文件了。

其实还可以用python获取已有的记录,还可以用VBA进行一一比对,在表格中就挑出没有记录,不过只要利用手头上的工具干好事情也是一样的。

版权声明:

本网仅为发布的内容提供存储空间,不对发表、转载的内容提供任何形式的保证。凡本网注明“来源:XXX网络”的作品,均转载自其它媒体,著作权归作者所有,商业转载请联系作者获得授权,非商业转载请注明出处。

我们尊重并感谢每一位作者,均已注明文章来源和作者。如因作品内容、版权或其它问题,请及时与我们联系,联系邮箱:809451989@qq.com,投稿邮箱:809451989@qq.com

热搜词