KB16152: How to export a document saved with default prompt answers to a Microsoft Excel file using MicroStrategy Intelligence Server SDK 9.x

It is possible to programmatically export a document containing default prompt answers to a Microsoft Excel file using the Strategy Intelligence Server SDK 9.x This code utilizes the M5TYPLIB.dll for COM development (located in the Program Files/Common Files/Strategy folder) on the Windows Environment. To accomplish this, follow the steps below:
 

1. Create all the required variables:
   

   
   Dim MyProjectList As DSSDataSourceEnumerator
   Dim MySession As IDSSSession
   Dim objSource As IDSSSource
   Dim MyProject As DSSDataSource
   Dim MyDataSource As New DSSDataSource
   Dim MyDocumentDef As IDSSDocumentDefinition3
   Dim MyDocumentInstance As IDSSDocumentInstance3
   Dim objDocResolution As IDSSResolution
   Dim objPrompt As IDSSPrompt
   Dim strDir As String
   Dim strDocId As String
   Dim objDocSrc As IDSSDocumentSource
   

   
   
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
   Set objSource = MySession.Component(DssRoleObjectSource)

   
   
5. Find the document id in the project and initialize the document definition object :
   

   
   strDocId = "3CD827FA4353C70DF67356934F52A71E"
   Set MyDocumentDef = objSource.FindObject(strDocId, DssTypeDocumentDefinition)
   Set objDocsrc=MySession.Component(EnumDSSComponentRole.DssRoleDocumentSource)
   

   
   
6. Create a new document server instance:
   

   
   Dim MyDocumentServer As DSSDocumentServer Set MyDocumentServer = MySession.Component(DssRoleDocumentSource)
   

   
    
   
   
   
7. Obtain the document instance and execute it:
   

   
   Set MyDocumentInstance = MyDocumentServer.NewInstance(MyDocumentDef, objDocResolution)
   MyDocumentServer.Execute MyDocumentInstance, EnumDSSDocumentActions.DssDocumentActionExecuteAll, EnumDSSDocumentFlags.DssDocumentExecuteRunAsynch + EnumDSSDocumentFlags.DssDocumentExecuteDefaultAutoprompt

   
   
8. Export the document instance to an excel file using the export engine:
   

   
   Dim oExpEng As IDSSExportEngineServer 
   Dim abcArray() As Byte 
   Set oExpEng = MySession.Component(DssRoleExportEngineServer) 
   
   abcArray() = MyDocumentInstance.ExportDocument(DssExportFormatExcel) 
   Dim myFile As String 
   myFile = "c:\document.xls" 
   Open myFile For Binary As 1 
   'open, put, and close the .xls file 
   Put #1, 1, abcArray 
   Close #1

   
    
    
   

The example provided in this document is provided “as-is” and user has read the following customization warning:
ADDITIONAL INFORMATION:
The Strategy SDK allows you to customize several Strategy products and extend and integrate the Strategy business intelligence functionality into other applications. However, before changing the way Strategy products look or behave, it is helpful to understand how the application is built. For more information regarding the Strategy products or the process of customizing Strategy products, please refer to Strategy Developer Zone (https://developer.microstrategy.com).
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 https://www.microstrategy.com/us/services/support/contact.
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.