0

我在尝试使用服务创建 Word 和 Excel 对象时遇到问题。

事件查看器中的错误消息显示“无法创建 ActiveX 组件”。

该问题仅出现在 Windows 11 上,并且与 Windows 10 中相同的代码和服务可以正常工作。

我有一个作为本地系统帐户运行的服务。它每 10 分钟运行一次,并有代码从 Word 和 Excel 中收集文本并写入 SQL DB。

Try/Catch 中失败的代码如下:

        Dim objWordApplication As Object = Nothing
        Try
            objWordApplication = CreateObject("Word.Application")
            objExcelApplication = CreateObject("Excel.Application")
            MicrosoftOfficeInstalled = True
        Catch ex As Exception
            MicrosoftOfficeInstalled = False
            gEventLog.WriteEntry("Office Not Detected: " & ex.Message & " ")
        End Try

似乎 CreateObject 失败了,但我无法确定原因,也无法确定如何将更多信息写入事件日志,比如我可以进一步研究的消息编号。

任何帮助将不胜感激。

布赖恩

4

0 回答 0