mooAnalyzeCube("[cube name]")


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]")


Return Value


               STRING() ARRAY


Example        



Public Sub AnalyzeCube()

'returns a single dimension array of all dimensions of the variable passed to mooAnalyzeCube


Dim str() As String


'Check Im connected if not connect

If Not   .connected Then

   boo = Application.COMAddIns.Item("myObjectiveOLAPXL.AddinModule")Application.COMAddIns.Item("myObjectiveOLAPXL.AddinModule").Object.Object.connect

   boo = Application.COMAddIns.Item("myObjectiveOLAPXL.AddinModule").Object.connected

   Else

   boo = True

End If


str = Application.COMAddIns.Item("myObjectiveOLAPXL.AddinModule").Object.mooAnalyzeCube("GLOBAL.GLOBAL!UNITS_CUBE_COST")


For i = 0 To UBound(str)

  Debug.Print (str(i))

Next


End Sub



Return Value Example


TIME

CHANNEL

CUSTOMER

PRODUCT