Visual Basic-makron i Report Builder

VBA-makron (Visual Basic) innehåller funktioner som hjälper dig att uppdatera Excel-arbetsböcker. Visual Basic har tillgång till arbetsboken, Excel och Windows.

Du måste köra den senaste versionen av Report Builder och logga in innan du kör VBA-makron.

Adobe stöder tre Report Builder API-metoder.

RefreshAllReportBuilderRequests()

Makrot RefreshAllReportBuilderRequests() uppdaterar alla Report Builder-begäranden i den aktiva arbetsboken. Det börjar med att anropa Report Builder COM-tillägget via dess produkt-ID och sedan anropar API-kommandot RefreshAllRequests():

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()

Makrot RefreshAllReportBuilderRequestsInActiveWorksheet() uppdaterar alla Report Builder-begäranden i det aktiva kalkylbladet. API-anropet RefreshWorksheetRequests() tar ett kalkylbladsobjekt som argument. Du kan använda det här anropet för alla kalkylblad som innehåller förfrågningar från 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()

Makrot RefreshAllReportBuilderRequestsInCellsRange() uppdaterar alla Report Builder-begäranden vars cellutdata överlappar det angivna cellområdet. Cellintervallet som används i det här exemplet pekar på intervallet B1:B54 för arbetsbladet Data i den aktiva arbetsboken. Intervalluttrycket stöder alla Excel-intervalluttryck som stöds:

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