Example of an Excel VBA application using the mooAnalyzeCube function:
Public Sub mooAnalyzeCube()
'returns a single dimension array of all dimensions of the variable passed to mooAnalyzeCube
Dim boo As Boolean
Dim arr() As String
If Not oregistered Then: boo = regQ:
'Check Im connected if not connect
If Not o.connected Then
boo = o.connect
boo = o.connected
Else
boo = True
End If
'Connected so execute
If boo = True Then
boo = o.mooAwAttach("EXPRESS", "FIRST")
arr = o.mooAnalyzeCube("INTL.MLANGMAP")
For i = 0 To UBound(arr)
Debug.Print (arr(i)) Next
Else
'Something went wrong print any error information
Debug.Print "Unable to Connect"
Debug.Print o.getlastmooerr
End If
End Sub
Returns a one-dimension array object each value of the array is a string value of the dimensions of the specified Analytic Workspace cube.
Syntax
mooAnalyzeCube(“ [cube name] “)
Microsoft®, WINDOWS®, Microsoft Excel®, Microsoft Office® are registered trademarks of Microsoft Corporation.
ORACLE® is a registered trademark of ORACLE Corporation.
® SDMC Consulting Limited 2010
