Windows 11下VB.Net服务创建Word/Excel ActiveX对象报无法创建组件错误

1. DCOM权限配置（首要排查项，Win11默认收紧了系统账号的COM调用权限） #

• 按Win+R输入dcomcnfg打开组件服务配置工具，依次展开「组件服务 > 计算机 > 我的电脑 > DCOM配置」
• 找到「Microsoft Word 应用程序」「Microsoft Excel 应用程序」（对应Office 2016/2019/365版本会带16.0后缀），分别右键打开属性面板
• 切换到「安全」标签，启动和激活权限、访问权限、配置权限三项均选择「自定义」，点击编辑添加SYSTEM和LOCAL SERVICE账号，为两个账号勾选全部本地权限（本地启动、本地激活、本地访问、本地读取）
• 切换到「标识」标签：如果服务需要在无人登录场景下运行，选择「下列用户」，填写一个已激活Office、有桌面访问权限的本地账号密码；如果服务仅在用户登录后运行，可选择「交互式用户」，不要使用默认的「启动用户」选项

2. 架构与安装版本匹配排查 #

• 确认你的Windows服务编译架构与Office安装架构一致：服务编译为x86则必须安装32位Office，服务编译为x64则必须安装64位Office，架构不匹配会直接触发ActiveX创建失败
• 不要使用Microsoft Store分发的Office版本，Store版Office未注册全局COM组件，无法被服务类程序调用，必须安装MSI或ClickOnce分发的桌面完整版Office
• 可先创建一个普通WinForm测试项目，运行相同的CreateObject代码，验证Office本身安装正常、COM组件注册无误

3. 错误日志增强方案 #

修改现有Catch块，输出更详细的错误信息用于定位：

Dim objWordApplication As Object = Nothing
Try
    objWordApplication = CreateObject("Word.Application")
    objExcelApplication = CreateObject("Excel.Application")
    MicrosoftOfficeInstalled = True
Catch ex As Exception
    MicrosoftOfficeInstalled = False
    Dim errDetail As String = $"错误信息：{ex.Message}{vbCrLf}错误码：{ex.HResult:X}{vbCrLf}调用堆栈：{ex.StackTrace}"
    If ex.InnerException IsNot Nothing Then
        errDetail += $"{vbCrLf}内部错误信息：{ex.InnerException.Message}"
    End If
    gEventLog.WriteEntry("Office 组件初始化失败：" & errDetail)
End Try

4. 长期优化建议 #

微软官方明确不推荐在服务端场景（Windows服务、Web服务等）调用Office桌面端COM组件，该调用方式存在内存泄漏、进程残留、并发调用异常等诸多问题，后续可替换为NPOI、EPPlus、DocX等无需依赖Office安装的开源第三方库实现Office文档内容读写。

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