Excel VBA导出PDF报错：Run-time error '1004'求助

• 检查导出路径的有效性与权限

  • 确认目标路径存在，且Excel拥有写入权限（比如网络路径可能权限失效、本地文件夹被删除）。
  • 避免路径包含特殊字符，优先使用无空格、无特殊符号的绝对路径测试，示例代码：

    Dim exportPath As String
    exportPath = "C:\Temp\Offer_Output.pdf"
    

• 验证目标Range的合法性

  • 即使变量看似正常，也要确认Range实际存在于工作表中：比如“Offer”表是否被重命名，Range的行/列是否超出工作表可用范围。
  • 可添加调试代码确认Range：

    Dim targetRng As Range
    Set targetRng = ThisWorkbook.Worksheets("Offer").Range("A1:E30") ' 替换为你的实际区域
    Debug.Print targetRng.Address ' 在VBA编辑器立即窗口查看区域是否正确
    

• 排除工作表保护或隐藏元素的影响

  • 若“Offer”工作表处于保护状态，或目标Range的行/列被隐藏，会导致导出失败。可临时取消保护后再导出：

    With ThisWorkbook.Worksheets("Offer")
        .Unprotect Password:="yourProtectPwd" ' 有密码则填写，无则省略参数
        targetRng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=exportPath
        .Protect Password:="yourProtectPwd" ' 恢复保护
    End With
    

• 排查Excel文件或程序异常

  • 保存并重启Excel文件，排除临时缓存损坏的问题；若近期更新过Office，尝试修复Office安装。

• 替代方案：通过打印区域导出

  • 如果Range导出仍失败，可先设置工作表打印区域，再导出整个工作表：

    With ThisWorkbook.Worksheets("Offer")
        .PageSetup.PrintArea = targetRng.Address
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=exportPath, IgnorePrintAreas:=False
    End With
    

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