Как получить сценарий SSAS табличного XMLA с помощью Excel VBA?

Question

Я использую приведенный ниже код для подключения к кубу, и у меня нет проблем с ним. Как мы можем получить XMLA куба.

Dim cnn As ADODB.Connection
Set cnn = New Connection
Dim cs As ADOMD.Cellset
Set cs = New ADOMD.Cellset
Dim mdx As String
server = "Server Name"
database = "CubeName"
 Dim rs As ADODB.Recordset

'mdx = "SELECT (" & Tuple & ") on Columns from " & cube
cnn.Open "Provider=MSOLAP;Data Source=" & server & ";Initial Catalog=" & database

Примечание. Я подключаю Табличную модель SSAS в приведенном выше коде