Examples of Automating SAS with OLE

The following examples use Visual Basic as the scripting language to control SAS with OLE automation. You can use any scripting language from any Windows application that can act as an OLE automation controller.

This Visual Basic code defines an object and creates an instance of SAS to associate with that object.

Dim OleSAS As Object 
Set OleSAS = CreateObject("SAS.Application")

This Visual Basic code queries the SAS session (using the Busy property) to test whether the session is busy processing code.

If (OleSAS.Busy) Then
   Response = MsgBox("SAS Session is Busy", 
              vbOKOnly, "SAS Session") 
Else
   Response = MsgBox("SAS Session is Idle", 
              vbOKOnly, "SAS Session") 
End If 

This Visual Basic code hides or unhides the SAS session based on its current state.

If OleSAS.Visible = False then
	OleSAS.Visible=True
Else
	OleSAS.Visible=False
End If

This Visual Basic code assigns a title to the main SAS window of the SAS session and then displays the title in a message box.

OleSAS.Title = "Automation Server" 
Response = MsgBox(OleSAS.Title, vbOKOnly, 
           "Title Is", 0, 0)

This Visual Basic code submits SAS code to the SAS session, assigning a SAS library and running the INSIGHT procedure on sample data.

OleSAS.Submit("libname insamp 
                'c:\sas\insight\sample';
               proc insight data=insamp.drug;
               run;")

This Visual Basic code ends the SAS session provided that there are no other OLE automation controllers using it.

OleSAS.Quit 
Set OleSAS = Nothing