Excel VBA导出PDF遇1004错误（非路径问题）：含Dashboard即报错

可能的原因及对应解决方法 #

1. 检查Dashboard工作表的打印配置 #

报错最常见的根源是该工作表的打印区域、页面设置存在异常：

• 先手动尝试将Dashboard单独导出为PDF（通过Excel菜单「文件>导出>创建PDF/XPS」），如果手动操作也报错，直接定位为工作表打印配置问题。
• 修复步骤：
  • 清除并重新设置打印区域：选中Dashboard工作表，执行Range("A1:X100").SetPrintArea（替换为实际需要的打印范围），或在「页面布局」选项卡中清除打印区域后重新指定。
  • 重置页面设置，消除异常配置：

    With ThisWorkbook.Sheets("Dashboard").PageSetup
        .PrintArea = ""
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = False
        .PaperSize = xlPaperA4
    End With
    

2. 替换ActiveSheet为SelectedSheets执行导出 #

原代码中使用ActiveSheet.ExportAsFixedFormat，当选中多个工作表时，ActiveSheet仅指向其中一个，容易引发对象识别异常。改为直接操作选中的工作表集合更稳定：

ThisWorkbook.Sheets(Array("3rd party", "Dashboard", "BS_3rd")).Select
ActiveWindow.SelectedSheets.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=PDF_FileName, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

3. 排查工作表中的对象/控件问题 #

Dashboard中的形状、图表、ActiveX控件若损坏或配置错误，会导致PDF导出失败：

• 逐一检查并删除/重新插入可疑控件（比如无法正常显示的图表、无响应的ActiveX控件）。
• 隐藏或移除超出打印区域的对象，避免导出时识别异常。

4. 验证文件路径与文件名合法性 #

即使不含Dashboard时正常，也需确认PDF_FileName变量的合法性：

• 确保路径存在，文件名不含/:\*?"<>|等非法字符，且总路径长度不超过Windows限制（260字符以内）。
• 可临时改用简单路径测试，比如PDF_FileName = "C:\Test.pdf"，排除路径问题。

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