Question

当我创建一个＆＃34; MS Project＆＃34;在excel中的对象我尝试使用此代码来检查对象是否已创建：

Dim pjapp As Object

Set pjapp = CreateObject("MSProject.Application")

If pjapp Is Nothing Then
    MsgBox "Project is not installed"
End If

我一直在：

＆＃34;运行时错误＆＃39;＆＃39;＆＃39;＆＃39; ActivX组件无法创建对象＆＃34;

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

我搜索了一个解决方案，但没有找到任何解决方案。谢谢你的帮助。

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

创建MS Project时出现Excel VBA错误

1 个答案: