複数のPDFを1つのファイルにまとめて作成する

Question

私は現在、個別のpdfファイルを作成するために以下の方法を使用しています（新しい値がC4になるたびに、異なるデータを持つ新しいpdfが生成されます）。これらのpdfのすべてを1つのファイルに保存する方法はありますか？

はあなたの助けを事前に

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にエクスポートできますか？