使用 VBA 将 Excel 文档转换为 PDF

Question

我非常困惑，我一直在寻找许多不同的解决方案，但我不断收到错误。

目标：我有一个包含许多单独工作表的工作簿。我需要两张表作为两个单独的 PDF 保存在我的系统中。这些表格是每日回报，并将每天更新。话虽如此，如果 PDF 覆盖前一天的 PDF，我可以。

问题：我尝试了许多不同的代码变体，但似乎无法正确。

这里是我尝试过的方法的链接。我不会放任何示例代码，因为我尝试了许多不同的代码，但我觉得我对其中的任何一个都不太了解。

我尝试过的解决方案的链接：

https://www.youtube.com/watch?v=zBFVm14biFI

http://www.contextures.com/excelvbapdf.html

VBA Print to PDF and Save with Automatic File Name

https://www.thespreadsheetguru.com/the-code-vault/vba-to-quickly-create-a-pdf-document-from-selected-excel-worksheets

https://exceloffthegrid.com/vba-code-save-excel-file-as-pdf/

非常感谢。

Answer 1

试试这个：

Sub ExportAsPDF()

Dim Worksheet1 As Worksheet
Dim Worksheet2 As Worksheet
Dim Worksheet1_Name As String
Dim Worksheet2_Name As String

Worksheet1_Name = "Sheet1" ' Replace this with the name of the first sheet you want to export
Worksheet2_Name = "Sheet2" ' Replace this with the name of the second sheet you want to export
Set Worksheet1 = ThisWorkbook.Worksheets(Worksheet1_Name)
Set Worksheet2 = ThisWorkbook.Worksheets(Worksheet2_Name)

Dim Write_Directory As String
Dim Worksheet1_Path As String
Dim Worksheet2_Path As String

Write_Directory = "C:\Users\YOUR_USERNAME\Documents" ' Replace this with the full path of the directory you want to save to
Worksheet1_Path = Write_Directory & "\" & Worksheet1_Name
Worksheet2_Path = Write_Directory & "\" & Worksheet2_Name

Worksheet1.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Worksheet1_Path, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Worksheet2.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Worksheet2_Path, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Application.StatusBar = "Exported " & Worksheet1_Name & " & " & Worksheet2_Name & " to PDF!"

End Sub