如果安装了以后在VB中选择“库引用”菜单,可以看到
Microsoft ActiveX Data Objects 2.5 Library
SAS: Integrated Object Model (IOM) 1.0 Type Library
SASWorkSpaceManager 1.0 Type Library
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 |