SASとVBScriptの連携

仕事柄VBScriptとSAS.EXEを連携することが多くあります。 サンプルコードを貼って、LanguageService Objectの資料をリンクしておきます。

view plainprint?

1. '---  
2. '    SASワークスペース・オブジェクトの生成  
3. '---  
4.   
5. Set oWrkSp = WScript.CreateObject("SAS.Workspace")  
6.   
7. '---  
8. '    ランゲージ・サービスの取得  
9. '---  
10. Set oLngSp = oWrkSp.LanguageService  
11.   
12. '---  
13. '    プログラムの実行  
14. '---  
15.   
16. oLngSp.Submit "data class; set sashelp.class; run; proc print; run;"  
17.   
18. '---  
19. '    ログの表示  
20. '---  
21. MsgBox oLngSp.FlushLog(100000)  
22.   
23. '---  
24. '    アウトプットの表示  
25. '---  
26.   
27. MsgBox oLngSp.FlushList(100000)  
28.   
29. '---  
30. '    ワークスペースを閉じる  
31. '---  
32.   
33. oWrkSp.Close  
34. Set oWrkSp = Nothing  
35.   
36. WScript.Quit(0)  

'---
'    SASワークスペース・オブジェクトの生成
'---

Set oWrkSp = WScript.CreateObject("SAS.Workspace")

'---
'    ランゲージ・サービスの取得
'---
Set oLngSp = oWrkSp.LanguageService

'---
'    プログラムの実行
'---

oLngSp.Submit "data class; set sashelp.class; run; proc print; run;"

'---
'    ログの表示
'---
MsgBox oLngSp.FlushLog(100000)

'---
'    アウトプットの表示
'---

MsgBox oLngSp.FlushList(100000)

'---
'    ワークスペースを閉じる
'---

oWrkSp.Close
Set oWrkSp = Nothing

WScript.Quit(0)