創建多個PDF合併爲一個文件從excel

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？