Excel vbaで単一のPDFファイルを作成

Question

ワークシートにテンプレートがあり、別のシートに記入するデータがあります。私はテンプレートを埋めるためのコードを持っていますが、それは別々のPDFとして印刷されます。しかし、私はそれを単一のPDFファイルに入れる必要があります。ファイル名は何でもかまいません。これを行うには、このExcel VBAコードをどのように変更しますか？

Sub GenerateDataSheets() 
    Row = 4 
    Do Until IsEmpty(Worksheets("Descriptions").Cells(Row, 1)) 
     Sheets("Template").Range("U3") = Worksheets("Descriptions").Cells(Row, 1) 
     Sheets("Template").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Worksheets("Descriptions").Cells(Row, 1) 
     Row = Row + 1 
    Loop 
     MsgBox "DataSheets have been generated." 
End Sub 

Answer 1

まず、すべてのデータをリストに追加してから印刷してください。私はこれがあなたのために働くかもしれないと思う：

Sub GenerateDataSheets() 
Row = 3 
Do Until IsEmpty(Worksheets("Descriptions").Cells(Row + 1, 1)) 
    Sheets("Template").Range("U" & Row) = Worksheets("Descriptions").Cells(Row + 1, 1) 
    Row = Row + 1 
Loop 
Sheets("Template").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Worksheets("Descriptions").Cells(3, 1) 
MsgBox "DataSheets have been generated." 
End Sub