【已解决】批量转换TIF文件为PDF文件

LMY123 · 发表于 2018-4-23 11:11

本帖最后由 LMY123 于 2018-4-23 14:49 编辑

TIM截图20180423111323.png

tif转pdf.rar (131.53 KB, 下载次数: 124)

sevenstar · 发表于 2018-4-23 12:51

网上下一个Adobe Acrobat Pro，可以一键批量转换，用VBA转有些费劲。

LMY123 · 发表于 2018-4-23 13:17

sevenstar 发表于 2018-4-23 12:51
网上下一个Adobe Acrobat Pro，可以一键批量转换，用VBA转有些费劲。

感谢帮助，软件我有，想用vba实现，因为转换将在各级子文件夹中实现

opiona · 发表于 2018-4-23 14:08

本帖最后由 opiona 于 2018-4-23 14:23 编辑

借助PdfTools 可以实现：图片批量转为PDF的代码已经搞定，转换其他图片格式，请替换代码中的：*.tif

批量转换图片为PDF.part1.rar (2 MB, 下载次数: 1795)

批量转换图片为PDF.part2.rar (1.27 MB, 下载次数: 450)

opiona · 发表于 2018-4-23 14:25

附件已经更新，解决了子文件夹问题

LMY123 · 发表于 2018-4-23 14:44

opiona 发表于 2018-4-23 14:08
借助PdfTools 可以实现：图片批量转为PDF的代码已经搞定，转换其他图片格式，请替换代码中的：*.tif

感谢大师的帮助，效果非常好，文件在子文件夹中也能实现，不知能不能进一步实现：

图片在子文件夹中，能否转换时将PDF也放在与源数据相同的子文件夹中，同时自动创建文件夹及子文件夹，效果在结果文件夹中

LMY123 · 发表于 2018-4-23 14:49

opiona 发表于 2018-4-23 14:25
附件已经更新，解决了子文件夹问题

非常完美，再次感谢大师的指导

opiona · 发表于 2018-4-23 14:50

就是获得的PDF和对应的tif 都放在一起呗！

PATHPDF = Replace(PATHJPG, GetPathFromFileName(PATHJPG, True), "") & GetPathFromFileName(PATHJPG, False) & ".PDF"

复制代码

LMY123 · 发表于 2018-4-23 15:05

opiona 发表于 2018-4-23 14:50
就是获得的PDF和对应的tif 都放在一起呗！

再次感谢大师的指导，效果非常好

Sunn214 · 发表于 2024-5-29 09:51

本帖最后由 Sunn214 于 2024-5-29 16:30 编辑

opiona 发表于 2018-4-23 14:08
借助PdfTools 可以实现：图片批量转为PDF的代码已经搞定，转换其他图片格式，请替换代码中的：*.tif

您好，我是64位的2016版execl，这个“批量转换图片”为PDF解压后，excel打开后提示找不到PdfTools.xll，请问可能是什么原因？不胜感激

		自动登录	找回密码
密码			免费注册

[求助] 【已解决】批量转换TIF文件为PDF文件