excel - 将多张纸保存为 .pdf

Question

我有一个报告电子表格，它从数据库中获取一些数据并形成三张摘要报告信息。我想从命令行自动运行电子表格，并让它自动将所有三个报告表保存为 PDF 文件。

起初我以为我可以在工作表上使用 VBA 宏通过一系列“打印为 PDF”来完成此操作，但这需要一个中间交互式对话框来指定输出文件名。然后我发现我可以直接另存为pdf，并且宏可以设置输出文件名。然而，这会创建三个单独的文件，然后我必须在外部将它们放在一起以合并它们。

(奇怪的是，另存为 pdf 只保存一张工作表，而其他保存模式似乎保存整个工作簿。)

是的，稍后有一些工具可以合并这三个文件，但我想知道是否有一些简单的方法可以让 Excel 将多个工作表保存为一个 pdf 文件。

我现在通过一系列内容进行打印，例如:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, ...

我可以用一条语句来代替(伪代码):

ThisWorkbook.Sheets(1,2,3,4).ExportAsFixedFormat Type:=xlTypePDF, ...

Answer 1

首先选择要合并的工作表:

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\tempo.pdf", Quality:= xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True