通过 Excel 创建 PDF答案

【问题标题】：Creating PDF through Excel通过 Excel 创建 PDF
【发布时间】：2018-04-04 08:09:39
【问题描述】：

我想用 Excel 数据创建一个 PDF 文件。我在 excel 中有几行数据，对于每一行我想创建一个 PDF 文件并将其保存到我的机器上。如何用excel或vba中的宏访问？

【问题讨论】：

【解决方案1】：

为此，您可以使用“文件”/“导出”/“创建 PDF/XPS 文档”菜单。

在录制 VBA 宏时使用此功能时，会生成以下代码，您可以使用它或通过录制宏获取自己的代码。然后，您可以使用循环中的代码一次性创建多个 PDF。

此功能使用工作表的可打印区域创建 PDF。因此，您可能必须在每次创建 PDF 之前从代码中调整打印区域。

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "\\test.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

【讨论】：

【解决方案2】：

这会做你想做的。

Sub Save_Each_Row_As_PDF()

myrange = "A1:J10"
lastRow = Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row
For myRow = 2 To lastRow

    Range("A" & myRow & ":J" & myRow).Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\your_path_here\Book" & myRow & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
Next

End Sub

【讨论】：

myrange 变量在哪里使用？