Scripting Guide - SAS

496 Extending JMP Chapter 14
OLE Automation
If a method produces an object that can also be automated, the object browser indicates this. For FitLine,
the object browser specifies that the return type is As Fit.
Since this is not a predefined type like short or BSTR, you can probably guess that this is an object. If you
look farther down the object browser, you see Fit as an object type. This confirms that an object is
produced, and also gives you the methods that Fit supports.
Creating and Populating a Data Table
New data tables can be created with the (appropriately named) NewDataTable method of the
Application object. A filename is assigned at creation time. This method returns a column object, which
must be retained as long as you want to add rows. By default, 20 rows are created. The SetCellVal
method can be used to populate individual cells, and AddRows can be used to add rows as needed. Here is
an example:
Dim Col As Object
Set DT = JMP.NewDataTable("C:\test.jmp")
Set Col = DT.NewColumn("Col1", dtTypeNumeric, 0, 8)
DT.Visible = True
'You must add rows before populating the table with data
DT.AddRows 20,0
'Set Cell values to increments of 1.5
For i = 1 To 10
Col.SetCellVal i, i * 1.5
Next i
DT.Visible = False
For i = 11 To 20
Col.SetCellVal i, i * 1.5
Next i
DT.Visible = True
'This adds 5 rows to the end of the table
DT.AddRows 5, 0
'This adds 5 rows after row 2
DT.AddRows 5, 2
'Now save the data table using the previously specified filename
DT.Document.Save
'If you wanted to create a subset of the table, with only rows 1-3
'you could do the following
'Note: you could also create subsets using specific columns by adding the
'columns to a list using the AddToSubList member function of Datatable
Dim NewDT As JMP.Datatable
Dim DTDoc As JMP.Document
DT.SelectRows 1,3
Set NewDT = DT.Subset