从excel创建多个PDF组合成一个文件

Question

我目前正在使用以下内容创建单独的pdf文件（每次将新值放入C4时，都会生成一个包含不同数据的新pdf文件）。有没有办法将所有这些pdf保存到一个文件中？

提前感谢您的帮助

Q

Sub moveselection()
Dim i As Integer


For i = 1 To 108


Range("C4").Value = Sheets("Sheet1").Range("A4").Offset(i, 0).Value
ThisFile = Range("C4").Value


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="T:\Maths\QM" & _
ActiveSheet.Range("C4").Value & ".pdf", _
From:=1, _
To:=1, _
OpenAfterPublish:=False


Next i


End Sub

Answer 1

不是每次都保存为pdf而不是在进入循环之前创建新工作簿然后将活动工作表复制到此新工作簿，然后在循环结束后将整个工作簿导出为pdf？