通过Excel创建PDF

我想用excel数据创建一个PDF文件。我在excel中有数据行，每行我都想创建一个PDF文件并保存到我的机器上。如何使用excel或vba中的access宏执行此操作？

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

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

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

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

---

这会满足你的要求

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变量在哪里使用？