求助:用SAS写如Word表格

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我想把已有的的结果(在SAS中,比如说sashelp.sas), 写入一个已存在的确word文档中的表格中,有什么办法吗?
谢谢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：word表格 word SASHELP WORD文档 Help Word

如果比较懂wordbasic（早期的VBA）的话，可以参考下列代码来实现，非常繁琐，只是有新建表格，但没有插入已存在表格，要实现的话wordbasic的地方可能需要改一下，具体要请教wordbasic高手了。由于表格需要格式设置，因此需要写入wordbasic，让word来执行这段宏。
这类功能一般会使用处理输出比较普遍的动态数据交换引擎（DDE）来实现。

1. options noxwait xmin noxsync;
   
2. 
   
3. /*启动officeword*/
   
4. x '"C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE"';
   
5. filename wrd dde 'winword|system';
   
6. 
   
7. /*设置doc所在目录*/
   
8. %let path=_;
   
9. 
   
10. /*由于使用之前x命令与SAS并不是串行，而是并发的多线程，因此这里需要sleep，目的等待启动word编辑器*/
    
11. data _null_;
    
12.     call sleep(1,3);
    
13. run;
    
14. 
    
15. data _null_;
    
16.     file wrd;
    
17.     put '[FileNew.Template="Normal.dot"]';
    
18.     put '[ChDefaultDir "&path",0]';
    
19.     put '[FileSaveAs.Name="test.doc",.Format=0]';
    
20. run;
    
21. 
    
22. /*构造了需要写入的表格*/
    
23. data into_word;
    
24.     row=trim("sas")||'09'x||trim(put(today(),yymmdd10.));
    
25. run;
    
26. 
    
27. /*写入wordbasic*/
    
28. data _null_;
    
29.     file wrd;
    
30.     set into_word;
    
31.     ddecmd='[Insert '!!quote(trim(row))!!']';
    
32.     put ddecmd;
    
33.     put '[EditSelectAll]';
    
34.     put '[TextToTable.ConvertFrom="1",
    
35.         .NumColumns="2",.NumRows="1",
    
36.         .InitialColWidth="Auto",
    
37.         .Format="35",.Apply="87"
    
38.     ]';
    
39.     put '[FileSave]';
    
40.     put '[FileClose 2]';
    
41.     put '[FileClose 2]';
    
42. run;

复制代码

这个比较可控，可以实现打开已有doc文档，对已有表格进行编辑，包括高级的word的编辑功能。不过前提还是需要非常熟悉VBA。