如何使用Excel VBA获取SSAS表格XMLA脚本？

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表格模型