Example of an Excel VBA application using the mooOpenDimType function:

 

 

Public Sub mooOpenDim()

 

  'Limits a specified dimension 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.mooOpenDim("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