VBA/Excel/Access/Word/Access/ADOMD
A Basic Example Using ADOMD
<source lang="vb">
Sub BasicQueryExampleII()
Dim cst As ADOMD.Cellset Dim cat As ADOMD.Catalog Dim sMDX As String Dim ws As Worksheet On Error GoTo ErrHandler Set ws = ThisWorkbook.Worksheets(2) sMDX = "SELECT { [Measures].[Units Shipped], " & _ "[Measures].[Units Ordered] } on columns, " & _ "NON EMPTY [Store].[Store City].members on rows " & _ "from Warehouse" Set cat = New ADOMD.Catalog cat.ActiveConnection = "Data Source=localhost;Initial Catalog=FoodMart 2000;Provider=msolap;" Set cst = New ADOMD.Cellset cst.Open sMDX, cat.ActiveConnection cst.Close
ExitPoint:
Set cat = Nothing Set cst = Nothing Set ws = Nothing Exit Sub
ErrHandler:
MsgBox "An error occured - " & Err.Description, vbOKOnly Resume ExitPoint
End Sub
</source>