Question

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

Answer 1

您可以使用文件/导出/创建PDF / XPS文档菜单。

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

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

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

Answer 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

通过Excel创建PDF

2 个答案: