在 Excel vba 中创建单个 PDF 文件答案

【问题标题】：Create single PDF file in Excel vba在 Excel vba 中创建单个 PDF 文件
【发布时间】：2017-12-04 19:35:56
【问题描述】：

我在工作表中有一个模板，而要在另一张表中填写数据。我有填充模板的代码，但它打印为单独的 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

【问题讨论】：

标签： excel pdf-generation vba

【解决方案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

【讨论】：