Excel VBA保存工作表为PDF时触发运行时错误-2147417848(800010108)

你使用以下VBA代码导出Excel工作表为PDF时触发Run-time error '-2147417848 (800010108)'，且代码在其他设备可正常运行，已尝试开启Windows功能、重启系统但无效，待导出工作表仅A1单元格包含“test”字样：

Sub SimplePrintToPDF()
    Dim saveLocation As String
    saveLocation = "C:\Users\Santo\Downloads\test123.pdf"
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveLocation, Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

以下是针对性解决步骤：

• 检查文件路径权限
  确认C:\Users\Santo\Downloads目录有写入权限：右键该文件夹→属性→安全→查看当前用户是否拥有“写入”权限，无权限则添加；也可临时替换路径为桌面（C:\Users\Santo\Desktop\test123.pdf）测试是否为权限问题。

• 修复Office组件
  打开控制面板→程序和功能→找到Microsoft Office→右键选择“更改”→先尝试“快速修复”，完成后重启Excel测试；若无效，再执行“联机修复”。

• 排查打印机驱动冲突
  该报错常与打印机驱动相关：

  1. 打开控制面板→设备和打印机，将“Microsoft Print to PDF”设为默认打印机
  2. 若默认是其他实体打印机，暂时禁用该设备后再运行代码
  3. 更新当前默认打印机的驱动程序

• 调整代码兼容性
  修改代码避免潜在冲突，比如指定工作表而非用ActiveSheet、删除已存在的目标文件、开启忽略打印区域：

  Sub SimplePrintToPDF()
      Dim saveLocation As String
      Dim ws As Worksheet
      Set ws = ThisWorkbook.Worksheets("你的工作表名称") '替换为实际工作表名称
      saveLocation = "C:\Users\Santo\Desktop\test123.pdf"
      
      '删除已存在的PDF文件
      On Error Resume Next
      Kill saveLocation
      On Error GoTo 0
      
      ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveLocation, _
          Quality:=xlQualityStandard, IncludeDocProperties:=False, _
          IgnorePrintAreas:=True, OpenAfterPublish:=True
  End Sub
  

• 检查Excel信任中心设置
  打开Excel→文件→选项→信任中心→信任中心设置→宏设置，确保未禁用所有宏；同时将当前Excel文件所在文件夹添加为“受信任位置”。

内容的提问来源于stack exchange，提问作者Santo Samuel Surja