我在尝试使用服务创建 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 失败了,但我无法确定原因,也无法确定如何将更多信息写入事件日志,比如我可以进一步研究的消息编号。
任何帮助将不胜感激。
布赖恩