Visual Basic-macro's in Report Builder
Gemaakt voor:
- Gebruiker
- Beheerder
Deze verouderde invoegtoepassing voor Reporten Builder werkt nog steeds. U kunt uw erfeniswerkboekenin de nieuwe Report Builder omzetten.
De macro's van Visual Basic (VBA) verstrekken eigenschappen die u helpen de werkboeken van Excel verfrissen. Visual Basic heeft toegang tot het werkboek, Excel, en Vensters.
U moet de nieuwste versie van Report Builder uitvoeren en u aanmelden voordat u VBA-macro's kunt uitvoeren.
Adobe ondersteunt drie Report Builder API-methoden.
RefreshAllReportBuilderRequests()
De macro RefreshAllReportBuilderRequests()
vernieuwt alle verzoeken van de Report Builder in het actieve werkboek. Het begint door de toe:voegen-binnen van Com van de Report Builder door zijn identiteitskaart van het Product te roepen, dan roept het RefreshAllRequests()
API bevel:
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()
De macro RefreshAllReportBuilderRequestsInActiveWorksheet()
vernieuwt alle verzoeken van de Report Builder in het actieve aantekenvel. De API-aanroep van RefreshWorksheetRequests()
neemt een werkbladobject als argument. U kunt deze vraag voor om het even welk aantekenvel gebruiken dat Report Builder verzoeken bevat:
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()
De macro RefreshAllReportBuilderRequestsInCellsRange()
vernieuwt alle verzoeken om Report Builder waarvan de celoutput de gespecificeerde waaier van cellen snijdt. De celwaaier die in dit voorbeeld wordt gebruikt richt aan de waaier B1:B54
van het aantekenvel van "Gegevens"binnen het actieve werkboek. De bereikexpressie ondersteunt alle ondersteunde Excel-bereikexpressies:
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