Example of an Excel VBA application using the mooDimLen function:
Public Sub mooDimLen()
'Show the Total Number of Dimension Values of a given dimension
Dim boo As Boolean
If Not oregistered Then: boo = regQ:
If Not o.connected Then
boo = o.connect
boo = o.connected Else
boo = True
End If
If boo = True Then
Debug.Print o.moodimlen("INTL.MLANG")
Else
Debug.Print "Unable to Connect"
Debug.Print o.getlastmooerr
End If
End Sub
Returns the maximum length of an Oracle OLAP dimension as supplied to the function.
The result is the same as executing an obj(dimmax 'DIMNAME') within the Oracle OLAP environment.
Syntax
moodimlen(“ [dim1] “)
Microsoft®, WINDOWS®, Microsoft Excel®, Microsoft Office® are registered trademarks of Microsoft Corporation.
ORACLE® is a registered trademark of ORACLE Corporation.
® SDMC Consulting Limited 2010
