Example of an Excel VBA application using the mooallstat function:
Public Sub mooAllstat()
'Limits all dimensions in the current AW to all
Dim boo As Boolean
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")
boo = o.wrap_runNonQ("lmt INTL.MLANG to 1")
Debug.Print o.mooStatlen("INTL.MLANG")
boo = o.mooAllstat
Debug.Print o.mooStatlen("INTL.MLANG")
Else
'Something went wrong print any error information
Debug.Print "Unable to Connect"
Debug.Print o.getlastmooerr
End If
End Sub
Opens the status of all dimensions within the currently attached Analytic Workspace.
Syntax
mooopendim(“ [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
