Scripting Guide - SAS

498 Extending JMP Chapter 14
OLE Automation
Begin by opening Microsoft Excel. To create a Visual Basic script for an Excel workbook, select
Visual Basic from the Developer ribbon. The Visual Basic editor opens in a separate window. On the left
side of the Visual basic editor, there is a pane entitled VBA Project. This pane shows the sheets that might
have Visual Basic code associated with them, as well as the workbook itself.
Figure 14.5 VBA Project for Excel
Code written for the workbook usually works for any of the sheets within the workbook.
There are three sections involved in the coding for this example. First, there are some variables that are
global in scope that are declared in the module1.bas file. This allows these variables to be referenced in
other code modules. A module can be inserted into the Visual Basic project by context-clicking on the VBA
project icon and selecting Insert > Module. Type the following code into the module. The code declares
instances of a JMP application, a JMP data table, and a flag to keep track of whether a document is open or
not.
Public MyJMP as JMP.Application ‘The JMP Application Object
Public DT As JMP.DataTable ‘The JMP Data Table object
Public DocOpen as Boolean ‘A flag indicating “JMP Table Open”
The next segment updates JMP when cells in the Excel worksheet change. It is called automatically because
Excel generates the Worksheet_change event whenever a cell is changed, deleted, or added.
The Excel VBA Project Browser shows the sheets that are currently part of the workbook. The code below
should be placed in the sheet that sends data to JMP. Double-click on the sheet icon in the VBA Project
Window to bring up the code for that particular sheet.
Private Sub Worksheet_change(ByVal Target as Range)
Dim Col as JMP.Column
If(DocOpen) Then
If(Target.Row = 1) Then
Return
End If
If(DT.NumberRows < Target.Row - 1) Then
DT.AddRows Target.Row - DT.NumberRows - 1, Target.Row
End If
If(Not IsArray(Target.Value) And Not IsEmpty(Target.Value)) Then
Set Col = DT.GetColumnByIndex(Target.Column)
Col.SetCellVal Target.Row - 1, Target.Value
End If