Here's a simple example of how to export ModelRight Model info to Excel.


To run it:

1) bring up the Script Explorer

2) right click on "User Defined" and select "New Script"

3) copy/paste the attachment into the edit control

4) hit the run button (the first icon in the toolbar above the edit control)

Note: you can undo/redo the effects of this script as with any Model changes


/********** start of script *************/

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