Question

我正在尝试找到一个可以将我的Excel转换为PDF（Adobe）的代码。到目前为止，我找到完美代码的研究并不奏效。

以下是我的公司如何手动转换并保存在他们自己的文件中===＆gt;

np.unravel_index(np.argmin(act),act.shape) #(2,2)（将设置配置为他们自己的首选项，如肖像或风景等）Click "File" -> Click "Print" ->选择＆＃34; CutePDFWriter＆＃34; - ＆GT; （将属性配置为他们自己的首选项）-> Click "Print" button ->（对于他们想要保存的文件）

如果您对此有任何了解，请帮助我。非常感谢你。

Answer 1

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

导出工作簿尝试将ActiveSheet更改为ActiveWorkbook

要仅导出多个工作表选择，请尝试使用 Sheets(Array("Sheet4", "Sheet5"))

示例：的

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

如何将Excel转换为Adobe PDF

1 个答案: