Using the Strategy Intelligence Server SDK 9.2.x, it is possible to programmatically export a report to a CSV file as follows:
1. Create all the required variables:
Dim MyDataSource As New DSSDataSource
Dim MyProjectList As DSSDataSourceEnumerator
Dim MyProject As DSSDataSource
Dim MySession As IDSSSession
Dim strRepId As String
Dim MyReportInstance As IDSSReportInstance9
Dim MyReportSource As IDSSReportSource
Dim MySource As IDSSSource
Dim MyReportDef As IDSSReportDefinition
Dim MyReportRes As IDSSResolution
Dim abcArray() As Byte
Dim fileExt As String
Dim lResult As Long
2. Login to the project source:
MyDataSource.AuthMode = DssAuthStandard
MyDataSource.Type = EnumDSSDataSourceType.DssDataSourceTypeServer
MyDataSource.Mode = EnumDSSConnectionMode.DssConnectionModeServerAccess
MyDataSource.Location = DataSourceName
MyDataSource.login = "Administrator"
MyDataSource.Passwd = " "
MyDataSource.Init
3. Find the project:
Set MyProjectList = MyDataSource.Enumerator
Set MyProject = MyProjectList.ItemByProjectName("Strategy Tutorial")
MyProject.Init
4. Create the session:
Set MySession = MyProject.CreateSession
5. Find the report ID in the project and assign it to the report definition object:
strRepId = "777900434E87A85684DDD0BD4BB4E593"
6. Create new report instance from the report definition:
Set MySource = MySession.Component(DssRoleObjectSource)
Set MyReportSource = MySession.Component(DssRoleReportSource)
Set MyReportDef = MySource.FindObject(strRepId, EnumDSSObjectType.DssTypeReportDefinition)
Set MyReportInstance = MyReportSource.NewInstance(MyReportDef)
Set MyReportRes = MyReportInstance.Resolution
7. Execute report instance:
Call MyReportSource.Execute(MyReportInstance, DssActionExecuteAll, DssReportRunSynch + DssReportUpdateOutSourceCache + DssReportUseOutSourceCache)
8. Export report and save as CSV file:
Dim oDSSExportContext As DSSExportContext
Set oDSSExportContext = New DSSExportContext
oDSSExportContext.Setting(DssExportReportWebSetting) = "<extendable_parameter><export_options vm=""1"" ef=""3""><ept daf=""F"" sep="" "" vex=""""" vox=""""" hex=""""" hox=""""" trmv=""1""/></export_options></extendable_parameter>"
abcArray() = MyReportInstance.ExportReport(gFileType, oDSSExportContext, lResult)
Dim myFile As String
myFile = "C:\tmp\Test.csv"
Open myFile For Binary As 1 'open, put, and close the .csv file
Put #1, 1, abcArray
Close #1
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.
