当前位置: 首页 > article >正文

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 Variant

filepath = 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
Loop

End Sub

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

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

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


http://www.kler.cn/a/586537.html

相关文章:

  • 【CF】Day7——Codeforces Round 919 (Div. 2) BC
  • 表单 schema 配置化
  • L3-1 夺宝大赛
  • Manus 一码难求,MetaGPT、OpenManus、Camel AI 会是替代方案吗?
  • MESH网络技术解析
  • Ant Design Vue UI框架快速打造后台管理管理案例
  • K8S学习之基础三十:k8s中RBAC 的核心概念
  • 华为OD机考真题 Linux 发行版的数量(Java)
  • Android UI 组件系列(一):TextView 使用详解与常见属性
  • Fast dds 内存调优
  • 【前端实战】一文掌握响应式布局 - 多设备完美适配方案详解
  • 【DeepSeek】蓝耘智算 | 中国AI新范式:蓝耘智算云+DeepSeek R1部署实战教程
  • Spring @Bean注解使用场景二
  • 【PHP】获取PHP-FPM的状态信息
  • Python JSON模块详解:从入门到高级应用
  • C#—线程池详解
  • 健康养生:拥抱活力,畅享生活
  • Excel单元格中插入自定义超链接
  • 第5课 树莓派的Python IDE—Thonny
  • Python系列教程241——不要使用from *