Excel VBA导出可见工作表为PDF报运行时错误-2147319767(80028029)

该错误属于Office COM组件调用异常，在当前场景下的触发原因可分为三类：原代码存在兼容隐患、导出路径不存在、本地PDF导出相关组件注册/配置损坏，按以下步骤操作即可解决：

1. 替换为兼容稳定版代码 #

原代码存在多处可能触发兼容问题的写法：未显式声明变量、依赖Select和ActiveSheet触发调用、硬编码导出路径未做存在性校验、遍历工作表未指定所属工作簿、可见性判断未使用官方常量，这些写法在你的电脑上可能因为环境刚好匹配能正常运行，但在其他同事不同版本、不同配置的Office环境下很容易触发异常。替换为以下代码即可解决代码层面的所有问题：

Sub ExportToPDFs()
    Dim ws As Worksheet
    Dim savePath As String
    Dim nm As String
    
    ' 导出路径可按需修改
    savePath = "D:\Test\"
    ' 自动创建不存在的导出目录，避免路径不存在触发异常
    If Dir(savePath, vbDirectory) = "" Then
        MkDir savePath
    End If
    
    Application.ScreenUpdating = False
    
    ' 仅遍历当前代码所在工作簿的工作表，避免误取其他工作簿对象
    For Each ws In ThisWorkbook.Worksheets
        ' 用官方常量判断可见性，兼容全版本Office
        If ws.Visible = xlSheetVisible Then
            nm = ws.Name
            ' 直接调用工作表对象导出，无需选中工作表，避免焦点异常
            ws.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=savePath & nm & ".pdf", _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
        End If
    Next ws
    
    Application.ScreenUpdating = True
    MsgBox "可见工作表导出完成"
End Sub

2. 替换代码后仍报错的本地环境修复 #

如果代码替换后同事电脑依旧报错，按顺序排查修复本地环境：

• 统一Office版本：将报错电脑的Office更新到和正常运行设备一致的版本与补丁版本，跨版本的功能接口差异是这类偶发COM错误的最常见诱因
• 修复Office安装：打开「控制面板→程序和功能」，找到Microsoft Office条目右键选择「更改」，先执行「快速修复」，完成后重启电脑测试；如果快速修复无效，再执行「联机修复」，修复完成后重启测试
• 重置PDF系统组件：打开「控制面板→程序和功能→启用或关闭Windows功能」，找到「Microsoft Print to PDF」项，若为已勾选状态则取消勾选，确认后重启电脑，再重新勾选该项后重启，即可重置组件的注册信息
• 排查第三方加载项冲突：打开Excel「文件→选项→加载项」，底部选择「COM加载项」点击转到，禁用所有非微软官方的第三方加载项（尤其是老旧版本的Adobe PDF插件、第三方PDF转换类加载项），重启Excel后再测试

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