Excel VBA导出PDF时出现Run-time error '1004' 生成文件后无法保存

核心问题原因 #

你当前代码中的保存路径不符合Windows系统规则：C:\Users\Desktop\work_hours.pdf缺少系统用户名节点，Windows默认桌面路径格式为C:\Users\<登录用户名>\Desktop\<文件名>，错误的路径会导致程序无写入权限，触发1004报错。

修复方法 #

方案1：补全路径中的用户名 #

将代码中的保存路径替换为带真实用户名的完整路径，示例：

saveLocation = "C:\Users\zhangsan\Desktop\work_hours.pdf"

方案2：使用环境变量自动适配用户名（兼容性更佳） #

调用Environ("USERPROFILE")自动获取当前用户的根目录，不需要手动填写用户名，适配不同设备：

saveLocation = Environ("USERPROFILE") & "\Desktop\work_hours.pdf"

其他可能触发报错的场景排查 #

• 目标PDF文件处于打开状态时，会触发写入冲突，导出前请确认同名文件已关闭
• 桌面文件夹被系统设置权限限制时，可尝试修改保存路径为其他磁盘的自定义文件夹测试
• 工作表存在无效的打印区域配置时，可在导出前添加代码清空打印区域：ActiveSheet.PageSetup.PrintArea = ""

完整可运行代码示例 #

Dim saveLocation As String

' 自动获取当前用户桌面路径
saveLocation = Environ("USERPROFILE") & "\Desktop\work_hours.pdf"

' 清空无效打印区域配置
ActiveSheet.PageSetup.PrintArea = ""

' 执行导出
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:=saveLocation, _
  Quality:=xlQualityStandard

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