Vba 如何将Excel转换为Adobe PDF

我试图找到一个代码，可以将我的excel转换成PDF（Adobe）。到目前为止，我寻找完美代码的研究没有成功

下面是我的公司如何手动转换并保存到自己的文件==>

单击“文件”->单击“打印”->

（将设置配置为他们自己的首选项，如纵向或横向等）

->单击“打印”按钮->

选择“CutePDWriter”->（将属性配置为他们自己的首选项）

->单击“确定”按钮->单击“保存”

（保存到他们想要保存的文件中）

如果你有这方面的知识，请一定帮助我。

---

---

非常感谢。

对不起，可能是重复的。。。似乎不起作用：“（@Tim Biegeleisen抱歉的可能副本…似乎不起作用：”（@Tim Biegeleisen抱歉的可能副本…似乎不起作用：“（@Tim Biegeleisen抱歉的可能副本…似乎不起作用：”（@Tim Biegleisenhello@Omar.我已经尝试运行您给我的编码。非常感谢您的帮助。但是，它有一个错误。它说“变量要定义”对于xlTypePDF。有什么方法可以澄清这个问题吗？我已经更新了答案，请不要忘记还要看看如何将许多excel表格转换为一个PDF文件？正如您给出的编码一样，它是有效的。但是，它会一张一张地转换。如何保存到特定的ActiveSheet？例如，我有一个5模块，其中包含图表。有什么方法可以仅将这5个图表转换为PDF？@OmarHello@Omar。我已尝试运行您提供的编码。非常感谢您的帮助。但是，它有一个错误。它显示“变量到定义”对于xlTypePDF。有什么方法可以澄清这个问题吗？我已经更新了答案，请不要忘记还要看看如何将许多excel表格转换为一个PDF文件？正如您给出的编码一样，它是有效的。但是，它会一张一张地转换。如何保存到特定的ActiveSheet？例如，我有一个5模块，其中包含图表。有什么方法可以仅将这5个图表转换为PDF？@OmarHello@Omar。我已尝试运行您提供的编码。非常感谢您的帮助。但是，它有一个错误。它显示“变量到定义”对于xlTypePDF。有什么方法可以澄清这个问题吗？我已经更新了答案，请不要忘记还要看看如何将许多excel表格转换为一个PDF文件？正如您给出的编码一样，它是有效的。但是，它会一张一张地转换。如何保存到特定的ActiveSheet？例如，我有一个5模块，其中包含图表。有什么方法可以仅将这5个图表转换为PDF？@OmarHello@Omar。我已尝试运行您提供的编码。非常感谢您的帮助。但是，它有一个错误。它显示“变量到定义”对于xlTypePDF。有什么方法可以澄清这个问题吗？我已经更新了答案，请不要忘记还要看看如何将许多excel表格转换为一个PDF文件？正如您给出的编码一样，它是有效的。但是，它会一张一张地转换。如何保存到特定的ActiveSheet？例如，我有一个5模块，其中包含图表。有什么方法可以仅将这5张图表转换为PDF？@Omar

Option Explicit
Sub SaveAsPDF()
    Dim FSO As Object
    Dim s(1) As String
    Dim FilePath As String

    Set FSO = CreateObject("Scripting.FileSystemObject")
    s(0) = ThisWorkbook.FullName

    If FSO.FileExists(s(0)) Then
        '// Change Excel Extension to PDF extension in FilePath
        s(1) = FSO.GetExtensionName(s(0))
        If s(1) <> "" Then
            s(1) = "." & s(1)
            FilePath = Replace(s(0), s(1), ".pdf")

            '// Export to PDF with new File Path
            ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=FilePath, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=True
        End If
    Else
        '// Error: file path not found
        MsgBox "Error: This workbook may be unsaved.  Please save and try again."
    End If

    Set FSO = Nothing
End Sub

        ThisWorkbook.Sheets(Array("Sheet2", "Sheet3")).Select
        Selection.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=FilePath, _