VBA导出PDF遇Runtime Error 5求助（无需显示隐藏工作表）

错误原因 #

Excel的Range.ExportAsFixedFormat方法依赖工作表的可视化渲染环境，当目标工作表处于隐藏状态时，Excel无法正确读取区域的格式、布局等渲染所需的信息，因此抛出Runtime Error 5（无效的过程调用或参数）。只有工作表可见时，渲染上下文才会被激活，方法才能正常执行。

无需显示工作表的解决方案 #

通过将目标区域复制到临时新建的工作簿中（临时工作簿内的工作表默认可见），再执行导出操作，既不会显示原隐藏工作表，也能完成PDF导出：

Dim tempWB As Workbook
Dim tempWS As Worksheet

' 新建仅含单工作表的临时工作簿
Set tempWB = Workbooks.Add(xlWBATWorksheet)
Set tempWS = tempWB.Worksheets(1)

' 复制原隐藏工作表的目标区域到临时工作表
ThisWorkbook.Worksheets(2).Range("A1:G103").Copy _
    Destination:=tempWS.Range("A1")

' 导出临时工作表的指定区域为PDF
tempWS.Range("A1:G103").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=path1_1 & "\Idea" & ThisWorkbook.Worksheets(3).Range("B12").Value & ".pdf", _
    OpenAfterPublish:=False

' 清理临时工作簿，不保存更改
tempWB.Close SaveChanges:=False
Set tempWS = Nothing
Set tempWB = Nothing

格式保留补充 #

如果需要完整保留原区域的单元格样式、条件格式等，可以改用PasteSpecial确保格式同步：

ThisWorkbook.Worksheets(2).Range("A1:G103").Copy
tempWS.Range("A1").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False ' 清除剪贴板内容

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