Example of an Excel VBA application using the mooPopDims function:

 

 

Public Sub mooPushMooPopExample()

 

'Example Using mooPush mooPop and mooStatlen

 

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

   

   'show the current length of the INTL.MLANG dimension

 

    Debug.Print o.mooStatlen("INTL.MLANG")

 

   'push the dimension

 

   boo = o.mooPushDims("INTL.MLANG")

 

   'limit INTL.MLANG dimension to 1 value

 

   boo = o.wrap_runNonQ("lmt INTL.MLANG to 1")

  'show the current length of the INTL.MLANG dimension

   Debug.Print o.mooStatlen("INTL.MLANG")

   'pop the dimension

   boo = o.mooPopDims("INTL.MLANG")

   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