【VBA研究】输出PDF文件合并时出错

已于 2022-08-26 16:46:04 修改
阅读量1.3k 收藏
点赞数
分类专栏： VBA_Excel 文章标签： java html 服务器
于 2022-08-26 16:33:13 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/iamlaosong/article/details/126545073
版权

作者：iamlaosong

在做一个打印通知单的工具时（这个工具已经做过很多个，技术基本一样），输出的多个PDF文件合并时出错，单个PDF文件打开没有问题。

合并其他文件没有问题，那问题只能是这些单个PDF文件。PDF文件是用下面语句输出的：

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf & "\代收付对账单" & Format(rr, "000000") & ".pdf"

不过，显然与这个语句无关，因为我是用老工具改的，这一块没动，唯一动的就是界面布局。我尝试看看问题出在哪儿，经过不断试验，在去掉最后一个单元格的引用后，问题不再出现。

这个单元格内容是序号，引用数据区的数据，将引用直接改成文本，没有问题；将这个引用放到前面去，也没问题。看来问题出在位置上。

这个通知单落款处

最低0.47元/天 解锁文章
宋哥
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
将多个pdf文件合并为一个文件
12-28
功能： pdf_merge.exe 用于合并pdf文件（按名称排序） 使用： 将pdf_merge.exe放到需要合并的pdf文件目录下，双击执行，会将该文件下的pdf文件按名称排序后合并为1个pdf文件。 新文件命名格式为： all_merge_年月日_时分秒.pdf 注：被合并的源文件会剔除 all_merge 开头的pdf文件。
一个基于Excel和VBA开发的自动生成.pdf
10-28
一个基于Excel和VBA开发的自动生成.pdf
实用VBA：13.Excel数据批量套模板输出pdf文件
最新发布
周公笃行的博客
12-31 1839
前面与大家分享了使用VBA批量将Excel数据套模板输出为单独文件的方法（见）和套模板时插入图片的方法（见实用VBA：10.用VBA向Excel文件中自动插入图片）。在此基础上，我们常常希望将套模板输出的文件保存为pdf文件，以免在后续工作流程中excel文件被误修改了内容或格式。
VBA-另存为pdf
yhygw_csdn的博客
06-30 5479
Sub 另存为pdf()    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _        "C:\Users\zgjxg\Desktop\" & Worksheets(2).Range("c4").Value, Quality:=xlQualityStandard, _        IncludeDocPro...
delphi memo 查找字符 下行插入_VBA实践+用编程代码为PDF文档插入书签
weixin_39662721的博客
11-29 410
VBA实践+为PDF文档插入书签声明：文章仅供参考，尝试请注意备份文件作用：打开pdf文档，查找到指定字符串，然后插入书签以下代码先设置一个待查找字符串，用findtext方法查找，然后用createchild方法插入书签。代码的运行环境为Win8.1，Word2010 VBA，Acrobat Pro DC，在本机测试成功。使用到的主要方法为AVDoc.FindText和BookMark.crea...
几个pdf文件怎么合并为一个？
12-07 416
几个pdf文件怎么合并为一个？大家只需要在自己的电脑上备上一个相应的合并软件，就可以进行合并操作了，具体的操作步骤如下，看完之后就会操作了。
excel vba 实现sheet批量输出pdf
ljingshuang的博客
08-25 1822
使用excel vba 对多个sheet实现自动化逐个输出pdf
Python如何把多个PDF文件合并代码实例
12-20
这篇文章主要介绍了Python如何把多个PDF文件合并,文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下 代码如下 from PyPDF2 import PdfFileMerger import os files...
利用Excel的自动化工具，完成多个目录下的PDF文件合并
06-21
1、利用Excel自动化工具VBA语言 2、输入多个分散的PDF文件 3、一健合并多个PDF文件
EXCEL VBA PDF 文件
05-26
EXCEL VBA PDF 1.使用CreateObject("Wscript.Shell").Run("pdf文件路径") 2.可以使用foxit Activex 或者 adobe 的activex workbookS.open("PDF的路径")
PDF合并为一个文件
07-31
PDFMate Free PDF Merger 可以批量将一个或多个 PDF 合并为一个文件，支持选择页码， 或为合并后的 PDF 添加打开密码或权限密码；也可以将 PDFMate Free PDF Merger 当作 PDF 分割工具使用，通过将选中的页码输出为 PDF 实现分割 PDFMate Free PDF Merger 同时还是一个图片转换 PDF 软件， 可以导入 JPG、JPEG、PNG、BMP 等格式的图片，与其他 PDF 合并输出。 软件特别说明 使用说明：已经做成绿色便携版， 直接运行 PDFMergeFreePortable.exe 即可， 自动显示简体中文界面，2
多个pdf合成一个pdf
12-06
多个pdf合成一个pdf
通过vba批量将Excel转为PDF
11-01
将该文件与需要转换的Excel文件放在同一个文件夹中，打开该文件，点击开始转换，稍等片刻即可完成转换
VBA实现格式相同的excel文件汇总合并
11-26
在提供的压缩包文件中，"excel文件合并工具_v1.1.xls"可能是已经包含了上述VBA代码的模板文件，而"示例1.xls"、"示例2.xls"、"示例3.xls"和"示例4.xlsx"则是待合并的Excel文件。使用这个工具，你可以快速地将这些...
合并_vba合并xls文件_vba合并文件夹下的所有xls_
10-03
在合并文件的场景中，我们会使用一个Sub过程，遍历指定文件夹，打开每个XLS或XLSX文件，并将其内容复制到主工作簿中。 以下是一个基本的VBA代码示例，展示了如何实现这个功能： ```vba Sub MergeWorkbooks() Dim ...
办公自动化：PDF文件合并器，将多个PDF文件进行合并...
梦在硅谷的博客
03-02 534
操作说明：选择多个PDF文件，执行完合并后会生成一个新的PDF文件，这个新的PDF文件包含所有源PDF文件的页面。 【阅读全文】 将相关的三方模块导入到代码块中... from PyQt5.QtWidgets import * from PyQt5.QtGui import * from PyQt5.QtCore import * import sys import os import PyPDF2 # PDF操作库 QThread是PyQt5的子线程应用，之前已经使用过比较多的次数了。一般使用时通过创
如何将三个pdf文件合并成一个？
05-22 338
如何将三个pdf文件合并成一个？今天我们为大家整理了几种PDF文件合并的方法，大家可以按照下面的图文步骤了解学习一下，方法简单一学就会~
对pdf文件批量重命名，便于合并
sdhdsf132452的博客
12-12 3690
import os source_dir1='C:/Users/Hab_L/Downloads/Document/测试/奇数页' files_name=os.listdir(source_dir1) # 这是一个列表 files_name.sort(key=lambda x:int(x[0:-10])) # 按1,2,3...排序 # for fname in files_name: # print(fname) i=1 for fname in files_name: if os..
多个pdf文件指定页合并为一个文件
蓝色的博客
10-22 197
在VBA中合并多个pdf的指定页为一个新的pdf文件
vba 如何读取pdf文件
05-16
在VBA中读取PDF文件需要使用第三方库，比如Adobe Acrobat、PDFLib等。以下是使用Adobe Acrobat的示例代码： 首先需要添加对Adobe Acrobat的引用： 1. 打开VBA编辑器，点击菜单栏上的“工具” -> “引用”。 2. 在弹出的“引用”对话框中，勾选“Adobe Acrobat xx.x Type Library”（其中的“xx.x”是版本号）。 接下来是读取PDF文件的示例代码： ```VBA Sub ReadPDF() Dim AcroApp As Acrobat.CAcroApp Dim AcroPDDoc As Acrobat.CAcroPDDoc Dim AcroPDPage As Acrobat.CAcroPDPage Dim iNumPages As Integer Dim i As Integer Dim strText As String ' 创建Acrobat对象 Set AcroApp = CreateObject("AcroExch.App") ' 打开PDF文件 Set AcroPDDoc = CreateObject("AcroExch.PDDoc") AcroPDDoc.Open "C:\example.pdf" ' 获取PDF文件页数 iNumPages = AcroPDDoc.GetNumPages ' 逐页读取PDF文件内容 For i = 0 To iNumPages - 1 Set AcroPDPage = AcroPDDoc.AcquirePage(i) strText = strText & AcroPDPage.GetWordText Set AcroPDPage = Nothing Next i ' 关闭PDF文件 AcroPDDoc.Close Set AcroPDDoc = Nothing Set AcroApp = Nothing ' 输出PDF文件内容 Debug.Print strText End Sub ``` 以上代码会打开指定的PDF文件，然后逐页读取PDF文件内容，并将结果输出到调试窗口中。你可以根据需要修改代码，比如将结果写入Excel工作表中。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值