从 Excel 启动业务对象

Question

我正在使用 VBA 为自己创建一个 Business Objects 宏。我在各地的论坛中发现了此代码和其他类似的代码。然而，在 VBA 中编译后，一切都在 Set BoApp 阶段开始冻结。我在创建对象时遗漏了什么吗？ BusinessObjects.application 是否必须说明特定于我的 Business Objects 目录的其他内容？

感谢任何帮助！

Sub Open_Reports()
    Dim BoApp As Object

Application.DisplayAlerts = False
Application.Wait (Now + TimeValue("1:00:00"))

On Error Resume Next
Set BoApp = CreateObject("BusinessObjects.application")
With BoApp
    .Visible = True
    .LoginAs "username", "password", , "DVBOCEN-APP01"
    .documents.Open ("Q:\MI Reporting (BAU)\BAU Daily\Operational Reports\All reports\Sales - Advisor - Daily.rep")
         With .Activedocument
              .Refresh
              .Close
         End With
    .Application.Quit
End With

Set BoApp = Nothing

ThisWorkbook.Saved = True
.Quit

结束子

Answer 1

不确定它是否有帮助，因为它应该可以工作，但试试：

Dim BoApp As busobj.Application

和

Set BoApp = New busobj.Application

我假设您能够成功手动启动 DeskI 应用程序，并且您已添加 BusinessObjects x 对象库作为参考？