Excel VBA导出PDF重复运行报错 如何在Adobe Reader新标签打开

报错根因 #

你当前使用的代码没有显式指定导出PDF的存储路径和文件名，每次执行时Excel会默认使用当前工作表名作为文件名，保存到Excel文件所在的目录。当旧的同名PDF已经被Adobe Acrobat打开时，文件会处于系统锁定的占用状态，Excel无法覆盖写入该文件，因此触发运行时错误。

推荐解决方案 #

每次导出时生成带唯一标识的文件名，避免出现同名文件覆盖冲突，你可以直接使用下方修改后的代码，文件名会自动追加时间戳，确保每次导出的文件都不重复，Adobe Acrobat会自动在新标签页打开新导出的PDF：

Dim exportPath As String
Dim pdfFileName As String

' 配置导出路径，默认和当前Excel文件同目录，可自行修改为指定路径
exportPath = ThisWorkbook.Path & IIf(Right(ThisWorkbook.Path, 1) = "\", "", "\")
' 生成带时间戳的唯一文件名，格式：工作表名_年月日时分秒.pdf
pdfFileName = ActiveSheet.Name & "_" & Format(Now(), "YYYYMMDDHHMMSS") & ".pdf"

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

可选方案（固定导出文件名场景） #

如果你需要每次导出都覆盖同一个PDF文件，不需要保留历史导出记录，可以在导出前先尝试删除旧文件释放占用，代码如下：

Dim targetPdf As String
' 自定义固定的导出文件路径
targetPdf = ThisWorkbook.Path & "\固定导出结果.pdf"

' 尝试删除旧文件释放占用
On Error Resume Next
Kill targetPdf
On Error GoTo 0

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

注意：该方案仅在旧PDF未处于编辑状态时生效，如果PDF中有未保存的修改，删除命令会失效，仍会触发报错。

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