Delphi中能否通过ExcelXP单元的_Workbook.SaveAs方法保存Excel工作簿为PDF？

Excel 2010无法通过_Workbook.SaveAs方法直接将工作簿保存为PDF，因为该版本的SaveAs方法确实没有对应的PDF文件格式常量。

要实现保存为PDF的需求，应使用Workbook.ExportAsFixedFormat方法，这是Excel 2010及以上版本专门用于导出PDF/XPS格式的官方方法。

示例VBA代码 #

Sub SaveWorkbookAsPDF()
    Dim targetWorkbook As Workbook
    Set targetWorkbook = ThisWorkbook ' 可替换为指定工作簿对象，如Workbooks("你的工作簿名.xlsx")
    
    ' 导出当前工作簿为PDF
    targetWorkbook.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:\自定义路径\导出的文件名.pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

关键参数说明 #

• Type:=xlTypePDF：指定导出格式为PDF（若需导出XPS，替换为xlTypeXPS）
• Filename：PDF文件的完整保存路径及名称
• Quality：设置导出质量，xlQualityStandard为标准质量，xlQualityMinimum为压缩质量
• IncludeDocProperties：是否将文档属性（如作者、标题）包含到PDF中
• IgnorePrintAreas：是否忽略已设置的打印区域，导出整个工作簿
• OpenAfterPublish：导出完成后是否自动打开生成的PDF

注意：使用前需确保Excel 2010已安装PDF导出组件（默认随Office安装，若缺失可通过Office安装程序添加）。

内容的提问来源于stack exchange，提问作者Pier Nardin