Active X错误429

Question

我有一个2010年的PP演示文稿，它调用了一个97-2000的excel图，它引用了存储过程，并通过sql进行了一些数据检索。

当我尝试调用这个文档时，我得到了一个429错误。在调试时，将突出显示以下代码。

Set appPP = GetObject(, "PowerPoint.Application")

vb不是我的一技之长，所以我会尽我所能，感激地得到任何帮助。

Answer 1

试着这样做：

Sub Test()
    Dim oPPT As Object
    Set oPPT = CreateObject("PowerPoint.Application")
    If oPPT Is Nothing Then
        MsgBox "No luck"
    Else
        MsgBox oPPT.version
        oPPT.quit
        Set oPPT = Nothing
    End If
End Sub