创建 MS 项目时出现 Excel VBA 错误

Question

当我在excel中创建"MS项目"对象时，我尝试使用此代码来检查该对象是否已创建：

Dim pjapp As Object
Set pjapp = CreateObject("MSProject.Application")
If pjapp Is Nothing Then
    MsgBox "Project is not installed"
End If

我一直得到：

"运行时错误'429'：ActivX 组件无法创建对象"

虽然我有一个代码可以处理这种问题。

我寻找解决方案，但没有找到。感谢您的帮助。

Answer 1

你没有任何代码来处理这个错误（至少不是你发布的）。一种方法是：

Dim pjapp As Object
On Error Resume Next
Set pjapp = CreateObject("MSProject.Application")
On Error Goto 0
If pjapp Is Nothing Then
    MsgBox "Project is not installed"
End If