在 Excel VBA 中自动刷新 Omniture Report Builder

Question

我有一个 excel 2010 工作簿，其中包含多个 Adob​​e Omniture Report Builder (5.0.50.0) 查询。我正在通过 VBA 中的此工作簿的电子邮件编写更新和分发脚本，我无法让报表生成器部分刷新。

Adobe 提供了以下不起作用的代码；

Sub RefreshAllReportBuilderRequests()

 Dim addIn As COMAddIn
 Dim automationObject As Object
 Dim success As Boolean
 Set addIn = Application.COMAddIns("ReportBuilderAddIn.Connect")
 Set automationObject = addIn.Object
 success = automationObject.RefreshAllRequests(ActiveWorkbook)

End Sub

将“成功”从布尔值更改为字符串允许它运行，但它仍然不会刷新任何内容。我还尝试将 Adob​​e.ReportBuilder.Bridge 工作表函数称为；

Application.Run ("AsyncRefreshAll")

再次没有效果。我能够刷新报表的唯一方法是调用功能区的报表生成器加载项刷新按钮的执行方法并猜测运行需要多长时间。

Application.CommandBars("Adobe Report Builder Toolbar").Controls(5).Execute

Application.Wait (Now() + TimeValue("00:00:02"))

有人知道更好的方法来完成这项工作吗？

Answer 1

上周我遇到了同样的问题，但现在解决了。 你是对的，成功不是一个布尔值，它是一个字符串。我通知了 Omniture，他们更改了他们的在线文档（但最后两个代码中仍然存在相同的问题：https://helpx.adobe.com/analytics/kb/visual-basic-macros-reportbuilder.html）。

我将暗淡的成功更改为字符串，现在它可以工作了！这是我使用的宏：

Sub RBRefresh()
    Dim addIn As COMAddIn
    Dim automationObject As Object
    Dim success As String
    Set addIn = Application.COMAddIns("ReportBuilderAddIn.Connect")
    Set automationObject = addIn.Object
    success = automationObject.RefreshAllRequests(ActiveWorkbook)
End Sub

所以我认为这不再是宏观问题，也许是 Excel 问题？