另存为 PDF 并在 Adob​​e Reader 中作为新标签打开

Question

我遇到了以下问题。要将 Excel 工作表另存为 PDF，我使用以下代码。

ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

这在我第一次执行命令时工作得很好。文件以 PDF 格式弹出并显示在 Adob​​e Acrobat Reader DC 中。但是当我再次执行它时，没有关闭打开的 PDF 文件，我得到了一个错误。只要我总是关闭旧的PDF，就没有错误。我很确定可以在 Acrobat Reader 的新选项卡中打开下一个文件，而不会在 VBA 中出现这些错误。有人可以帮我吗？

Answer 1

同名文件，不能在大多数应用程序的同一会话中打开...

请使用下一种方式，它给出不同的名称并在三个连续的选项卡中打开同一个工作表：

Sub expSheetAsPDFAndOpen()
   Dim strPDF As String, i As Long
   strPDF = ThisWorkbook.path & "\MyPDF"
   For i = 1 To 3
        ActiveSheet.ExportAsFixedFormat _
             Type:=xlTypePDF, _
             Quality:=xlQualityStandard, _
             IncludeDocProperties:=True, _
             IgnorePrintAreas:=False, _
             FileName:=strPDF & i & ".pdf", _
             OpenAfterPublish:=True
  Next i
End Sub

我想您不要尝试导出同一张工作表。在这种情况下，您可以使用工作表名称（唯一）来命名导出的 pdf。