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

Question

我遇到了以下问题。要将 Excel Sheet 保存为 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

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

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

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

我想您不会尝试导出 相同的 sheet。在这种情况下，您可以使用 sheet 名称（唯一的）来命名导出的 pdf。