如何解决PowerPoint VBA创建Excel.Application时的80080005错误

错误成因 #

• Office 2016的COM组件注册损坏：Excel的COM服务注册项丢失或异常，导致PowerPoint无法调用其创建实例。
• DCOM配置权限不足：PowerPoint进程没有足够的权限启动Excel的COM服务器，跨进程调用被阻止。
• Office安装文件损坏：Excel的核心组件（尤其是与COM交互相关的部分）损坏，无法正常初始化应用实例。
• 办公环境限制：组策略或企业级安全软件限制了Office进程间的COM交互，禁止PowerPoint启动外部Excel进程。

解决方法 #

1. 修复Office 2016安装 #

• 打开控制面板→程序和功能，找到Microsoft Office 2016。
• 右键选择更改，先尝试快速修复，完成后重启电脑测试。若无效，选择联机修复（需要联网）。

2. 重新注册Excel COM组件 #

以管理员身份打开命令提示符，执行以下命令（根据Office位数调整路径）：

# 64位Office路径
cd "C:\Program Files\Microsoft Office\Office16"
# 32位Office（64位系统）路径
# cd "C:\Program Files (x86)\Microsoft Office\Office16"

regsvr32.exe ole32.dll
regsvr32.exe oleaut32.dll
excel.exe /regserver

3. 调整DCOM配置权限 #

• 按Win+R输入dcomcnfg打开组件服务。
• 展开路径：组件服务→计算机→我的电脑→DCOM配置，找到Microsoft Excel Application。
• 右键选择属性：
  • 切换到安全选项卡：在「启动和激活权限」「访问权限」中分别选择自定义，点击「编辑」，添加当前登录用户并赋予「本地启动」「本地激活」「本地访问」权限。
  • 切换到标识选项卡，选择交互式用户，点击确定后重启电脑。

4. 使用PowerPoint内置链接更新（替代方案） #

无需手动创建Excel实例，直接调用PowerPoint的内置更新方法，由Office自动处理进程：

Sub UpdateLinks()
    Dim PPTSlide As Slide
    Dim PPTShape As Shape

    Application.ScreenUpdating = False

    For Each PPTSlide In ActivePresentation.Slides
        For Each PPTShape In PPTSlide.Shapes
            If PPTShape.Type = msoChart Then
                '仅处理OLE链接类型的图表
                If PPTShape.LinkFormat.Type = ppLinkTypeOLEObject Then
                    PPTShape.LinkFormat.Update
                End If
            End If
        Next PPTShape
    Next PPTSlide

    Application.ScreenUpdating = True
End Sub

5. 排查环境限制 #

联系企业IT管理员，确认是否有组策略限制了Office进程的COM交互；或临时关闭杀毒软件测试（测试后恢复防护）。

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