Report Builder 中的 Visual Basic 宏

Visual Basic (VBA)宏提供的功能可帮助您刷新Excel工作簿。 Visual Basic可以访问工作簿、Excel和Windows。

运行VBA宏之前，必须运行最新版本的Report Builder并登录。

Adobe 支持三种 Report Builder API 方法。

RefreshAllReportBuilderRequests()

RefreshAllReportBuilderRequests() 宏会刷新活动工作簿中的所有 Report Builder 请求。首先，通过产品 ID 调用 Report Builder COM 加载项，然后调用 RefreshAllRequests() API 命令：

Sub RefreshAllReportBuilderRequests()

 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

RefreshAllReportBuilderRequestsInActiveWorksheet()

RefreshAllReportBuilderRequestsInActiveWorksheet() 宏会刷新活动工作表中的所有 Report Builder 请求。RefreshWorksheetRequests() API 调用会将工作表对象作为参数。您可以对包含 Report Builder 请求的任何工作表使用此调用：

Sub RefreshAllReportBuilderRequestsInActiveWorksheet()

 Dim addIn As COMAddIn
 Dim automationObject As Object
 Dim success As String
 Set addIn = Application.COMAddIns("ReportBuilderAddIn.Connect")
 Set automationObject = addIn.Object
 success = automationObject.RefreshWorksheetRequests(ActiveWorkbook.ActiveSheet)

End Sub

RefreshAllReportBuilderRequestsInCellsRange()

RefreshAllReportBuilderRequestsInCellsRange() 宏会刷新单元格输出与指定单元格范围相交的所有 Report Builder 请求。此示例中使用的单元格范围指向活动工作簿中“Data”工作表的范围 B1:B54。范围表达式支持所有受支持的 Excel 范围表达式：

Sub RefreshAllReportBuilderRequestsInCellsRange()

 Dim addIn As COMAddIn
 Dim automationObject As Object
 Dim success As String
 Set addIn = Application.COMAddIns("ReportBuilderAddIn.Connect")
 Set automationObject = addIn.Object
 success = automationObject.RefreshRequestsInCellsRange("'Data'!B1:B54")

End Sub