Excel 365 VBA运行时错误1004：ActiveSheet.ExportAsFixedFormat报错

针对已排除文件名非法字符/重名的场景 #

• 检查保存路径权限
  确认dateiname指向的路径有写入权限，比如网络共享盘、OneDrive同步目录可能因锁机制或权限限制导致失败。临时替换为本地桌面路径测试：

  dateiname = Environ("USERPROFILE") & "\Desktop\测试报价.pdf"
  

• 避免依赖ActiveSheet
  报错时ActiveSheet可能不是目标报价表（比如Power Query刷新后切换了工作表），修改代码指定具体工作表：

  ' 替换为你的报价工作表名称，例如"报价模板"
  ThisWorkbook.Worksheets("报价模板").ExportAsFixedFormat _
      Type:=xlTypePDF, _
      Filename:=dateiname, _
      Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=True
  

• 排查Power Query导致的工作表损坏
  Power Query导入可能引发工作表对象异常：
  1. 新建空白Excel，复制报价表的非VBA/按钮内容到新文件，重新添加按钮和代码测试
  2. 清除Power Query缓存：「数据」选项卡→「获取数据」→「查询选项」→「缓存」→「清除缓存」
• 修复Office 365安装
  组件损坏可能导致PDF导出功能失效：打开控制面板→「程序和功能」→找到Microsoft 365→「更改」→先尝试「快速修复」，无效则用「联机修复」
• 排除加载项冲突
  第三方加载项可能干扰导出功能：按住Ctrl键启动Excel进入安全模式，测试按钮是否正常。若正常，逐步启用加载项排查冲突项

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