SAS如何在VB中调用？

如果安装了以后在VB中选择“库引用”菜单，可以看到
Microsoft ActiveX Data Objects 2.5 Library
SAS: Integrated Object Model (IOM) 1.0 Type Library
SASWorkSpaceManager 1.0 Type Library

代码:

Dim obWS As SAS.Workspace       Dim obWSM As New SASWorkspaceManager.WorkspaceManager             Sub Form_Load()       Dim obConn As New ADODB.Connection       Dim obRS As New ADODB.Recordset       Dim errorString As String             Rem start the SAS session       Set obWS = obWSM.Workspaces.CreateWorkspaceByServer("Local", _                  VisibilityProcess, Nothing, "", "", errorString)             Rem submit some SAS code       obWS.LanguageService.Submit _            "data a; do x=1 to 10; y=10*x; output; end; run;"             Rem open an ADO connection to the data set       Dim connString As String       connString = "provider=sas.iomprovider.1; SAS Workspace ID=" _                    + obWS.UniqueIdentifier       obConn.Open connString       obRS.Open "work.a", obConn, adOpenStatic, adLockReadOnly, _                 adCmdTableDirect             Rem write the table as html (visible in Word with tags)       obRS.MoveFirst       Dim sTable As String       sTable = "<TABLE BORDER=0><TBODY><TR><TD class=Data>"       Selection.TypeText sTable       sTable = obRS.GetString(, , "</TD><TD class=Data>", _       "</TD></TR><TR><TD class=Data>")       Selection.TypeText sTable       sTable = "</TD></TR></TBODY></TABLE>"       Selection.TypeText sTable             Rem tidy-up       obRS.Close       obConn.Close       obWS.Close             End Sub