Here's a simple example of how to export ModelRight Model info to Excel.  Add a user-defined script object and copy/paste the following into it.  Then run it:

Sub Evaluate_OnLoad()
 Set Context = CreateObject("SCF.ScriptContext")
 Set ThisScript = Context.Object
 Set Options = Context.Options
 Set Model = ThisScript.Model

 Dim NumRows, x1, col
 NumRows = 2
 Set ExcelDoc = CreateObject("Excel.Application")
 ExcelDoc.Visible = true
 ExcelDoc.Workbooks.Add
 ExcelDoc.Range("A1").Value = "Table"
 ExcelDoc.Range("B1").Value = "Column"
 ExcelDoc.Range("C1").Value = "Datatype"
 Set Tables = Model.AsObject.Children("Table")
 For Each Table In Tables
  TableName = Table.Property("Name").AsString
  Set Columns = Table.Children("Column")
  For Each Column in Columns
   ExcelDoc.Range("A" + Cstr(NumRows)).Value = TableName
   ExcelDoc.Range("B" + Cstr(NumRows)).Value = Column.Property("Name").AsString
   ExcelDoc.Range("C" + Cstr(NumRows)).Value = Column.Property("Datatype").AsString   
   NumRows = NumRows + 1
  Next
 Next

 ExcelDoc.Columns("A:C").EntireColumn.AutoFit                   
 ExcelDoc.Rows("1:" + cstr(NumRows)).EntireRow.AutoFit
   

End Sub