Users can answer prompts programatically using Strategy Office API.
The following VBA code is an example of how to answer a "Simple Prompt" using Strategy Office API 9.0.x.
Sample Code/Error
Sub Connect()
Dim MOIMain As MOIOffice
Dim projectSources As projectSources
Dim projectSource As projectSource
Dim projects As projects
Dim project As project
Dim status As EnumMOIErrorStatus
Dim count As Integer
Dim Name As String
Set MOIMain = New MOIOffice
MOIMain.Initialize ActiveWorkbook.Application, status
'Get the collection of project sources
MOIMain.GetProjectSources projectSources
'Get the first project source in the collection
projectSources.Item 0, projectSource
'Get the collection of projects for the project source
projectSource.GetProjects "administrator", "", projects
count = projects.count
'Loop through the projects until you find Strategy Tutorial
For I = 0 To count - 1
projects.Item I, project
Name = project.projectName
If Name = "Strategy Tutorial" Then Exit For
Next I
'Connect to the project
project.Connect status
Dim report As report
Set report = New report
Dim reportLocation As reportLocation
Dim prompts As prompts
Dim config As ConfigOptions
Dim prompt As prompt
Dim simpleprompt As PromptSimple
Dim answer As String
'Initialize the report named "Simple Prompt"
report.Initialize "localhost", EnumMWSAuthMode_MWSStandard, "Strategy Tutorial", "Administrator", "", "63AA9B0B42770FF22FD54B9EEA141A21", "Simple Prompt", status
'Get the configuration options
MOIMain.GetConfigOptions config
'Display the default page
config.PageSelection = EnumPageBy_PAGE_SELECTION_DEFAULT
'Define the page placement option to display all the pages in one worksheet
config.ExcelPlacementPageByResult = EnumResultPlacement_PLACEMENT_EXCEL_VERTICAL_LAYOUT
'Define option to disable use default prompt answers.
config.PromptUseDefault = False
If status = EnumMOIErrorStatus_MOISuccess Then
'Execute and display results at Worksheet: "Default", cell: A1
report.ExecuteAndDisplayInExcel False, "", "Sheet1", "A1", True, True, EnumMOIDisplayType_MOIDisplayDefault, False, False, reportLocation, prompts, status
For I = 0 To prompts.count - 1
prompts.Item I, prompt
prompt.GetSimplePrompt simpleprompt
simpleprompt.answer = "600000"
Next
reportLocation.answerPrompt prompts, status
reportLocation.DisplayReportInExcel "Sheet1", "A1", True, True, EnumMOIDisplayType_MOIDisplayDefault, False, False, status
' MsgBox Right(reportLocation.QueryString, 200)
' report.ExecuteAndDisplayInExcel True, "", "Sheet1", "A1", True, True, EnumMOIDisplayType_MOIDisplayDefault, False, False, reportLocation, prompts, status
End If
End Sub
ADDITIONAL INFORMATION:
The Strategy SDK allows you to customize the standard Strategy Web interface, and extend and integrate the Strategy business intelligence functionality into other applications. However, before changing the way Strategy Web products look or behave, it is helpful to understand how the application is built. For more information regarding the Strategy Web architecture or the process of customizing Strategy Web, please refer to Strategy Developer Zone (https://resource.microstrategy.com/msdz/).
To access the Strategy Developer Zone, you must have access to the Strategy Knowledge Base, you must have purchased the Strategy SDK, and you must be current on your Strategy maintenance agreement. If you are a US-based business and believe that you satisfy all three of these conditions but you do not have access to the Strategy Developer Zone, please contact Strategy Technical Support at support@microstrategy.com or at (703) 848-8700. If you are an international business, please contact Strategy Technical Support at the appropriate email address or phone number found at http://www.microstrategy.com/Support/ContactUs.asp.
CUSTOMIZATION WARNING:
This customization is provided as a convenience to Strategy users and is only directly applicable to the version stated. While this code may apply to other releases directly, Strategy Technical Support makes no guarantees that the code provided will apply to any future or previous builds. In the event of a code change in future builds, Strategy Technical Support makes no guarantee that an updated version of this particular customization will be provided. In the event of a code change in future builds, Strategy may not be able to provide additional code on this matter even though this customization is provided at this time for this specific build. For enhancements to this customization or to incorporate similar functionality into other versions, contact your Account Executive to inquire about Strategy Consulting assistance.
36226
