Business Objects从Excel启动

我正在使用VBA为自己创buildBusiness Objectsmacros。 我发现这个代码和其他类似的论坛到处都是。 然而,在VBA编译这个时候,所有的东西都开始冻结在Set BoApp阶段。 我在创build对象时丢失了什么? 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 

结束小组

不知道它是否会有所帮助,因为它应该以任何方式工作,但请尝试:

 Dim BoApp As busobj.Application 

 Set BoApp = New busobj.Application 

我假设您能够手动成功启动DeskI应用程序,并且已经添加了BusinessObjects x Object Library作为参考?