EXCELvba 封装函数之PDF文件导出各种格式

bluesky_0 · 发表于 2024-7-6 23:43

踏破拖鞋发表于 2024-6-28 09:04
Set objJSO = objAcroPDDoc.GetJSObject 不知道哪出的问题，在这句的时候打不开文件，附调用情况

抱歉这个是代码的问题,没有加扩展名,我每天更新下code

bluesky_0 · 发表于 2024-7-10 08:58

踏破拖鞋发表于 2024-6-28 09:04
Set objJSO = objAcroPDDoc.GetJSObject 不知道哪出的问题，在这句的时候打不开文件，附调用情况

boResult = objAcroAVDoc.Open(PDFPath_old & "" & pdfName, "")
看下这句,调用参数 pdfName 的时候是不是没有带扩展名 .pdf

踏破拖鞋 · 发表于 2024-7-11 08:11

本帖最后由踏破拖鞋于 2024-7-11 08:18 编辑

bluesky_0 发表于 2024-7-10 08:58
boResult = objAcroAVDoc.Open(PDFPath_old & "" & pdfName, "")
看下这句,调用参数 pdfName 的时候是 ...

哦知道了，就是这一句的影响，差了个\
boResult = objAcroAVDoc.Open(PDFPath_old & "\" & pdfName, "")
这样就正常运行了

我再加个判断，PDFPath_old和PDFPath_new中最末一位没有\的时候就加上。

踏破拖鞋 · 发表于 2024-7-11 08:30

感谢大佬分享，调用很方便。测试了下图片类可正常运行。docx、xlsx、xls就比较吃力了，xls乱码，另外2种没出来结果。附调整了PDFPath_old和PDFPath_new后文档及测试PDF文件。

bluesky_0 · 发表于 2024-7-11 08:33

踏破拖鞋发表于 2024-7-11 08:11
哦知道了，就是这一句的影响，差了个\
boResult = objAcroAVDoc.Open(PDFPath_old & "\" & pdfName, "" ...

我大致记得好像是哪个语句错误.....
最近没有搞这个......记不清具体地方了.
感谢指出问题.....

cyhwy · 发表于 2024-8-18 16:45

总提示不能写入文件

cyhwy · 发表于 2024-8-19 23:45

找到原因了，是adobe版本不对，换2020正常

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

[原创] EXCELvba 封装函数之PDF文件导出各种格式