如何将Excel转换为Adobe PDF

我试图find一个代码，将我的Excel转换成PDF（Adobe）。 到目前为止，我的研究发现完美的代码是行不通的。

所以这里是我的公司如何手动转换和保存在自己的文件===>

Click "File" -> Click "Print" -> （configuration设置为自己喜欢的人像或风景等） -> Click "Print" button ->select“CutePDFWriter” – >（根据自己的喜好configuration属性） -> Click "OK" button -> Click "Save" （ -> Click "OK" button -> Click "Save"到任何文件）

如果你有这方面的知识，请帮助我。 非常非常感谢你。

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

要仅导出多个工作表select，请尝试使用 表格（数组（“Sheet4”，“Sheet5”））

例：

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