SAS程序实现日常报表的全自动化

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. /*  该sas文件旨在说明如何编写一次完成以后不用任何人手更改（包括更改日期、excel的格式等）的常规报表；
   
2.     如用邮件自动发送程序，则还可省略发送邮件的过程，做到一次编写，无需跟进（前提是程序经过检验完善）；
   
3.     可根据个人情况举一反三使用；
   
4.     本文来自"OUR SAS"群-"统计-小风"
   
5. */
   
6. 
   
7. options noxwait noxsync;
   
8. x '"D:\报表模板.xlsx"';     /* 该文件为固定的报表模板，可以事先调整好单元格格式、字体颜色，事先写好其他不变的内容 */
   
9. data _null_;
   
10. rc=sleep(10);               /* sas睡眠10秒，是为了给打开上述文件留时间 */
    
11. run;
    
12. 
    
13. data _null_;                /* 此处设定各类时间，比如你要读取的文件是包含时间的，如test2012-05-16，就是用当天的时间、
    
14. sas程序运行的时间去得到这个"2012-05-16";另外一种是你要生成的excel文件是包含时间的，也在这里处理得出 */
    
15. x=put(date()-1,yymmdd10.);   /* 比如每日运行这个程序，处理前一日的文件，就是用date()-1 */
    
16. y=substr(x,6,2)||substr(x,9,2)||"b";
    
17. z=compress(input(substr(x,6,2),best8.)||"."||input(substr(x,9,2),best8.));
    
18. call symput("path",y);
    
19. call symput("path2",z);
    
20. run;
    
21. 
    
22. %let log=alla_&path;        /* 我要处理的文件名就是 alla_0516b 这种形式 */
    
23. 
    
24. libname result "D:\test";
    
25. data temp1(compress=yes);
    
26. set result.&log;            /* 类似这样应用 */
    
27. run;
    
28. 
    
29. /* 中间是你数据处理的过程，省略 */
    
30. 
    
31. filename r1 dde 'excel|[报表模板.xlsx]自定义表名1!r5c1:r60c6' ;  /* 对某张表某些单元格进行写入 */
    
32. data _null_;
    
33. set result1;
    
34. file r1 notab linesize=2000;    /* DDE默认空格为分隔符，如果一个变量中间有空格将会分开到两个单元格，用notab即可避免，
    
35. linesize赋予一个足够大的值，则过长的变量不会错行 */
    
36. put date '09'x time '09'x source '09'x duration '09'x sql '09'x type;
    
37. run;
    
38. 
    
39. filename r1 dde 'excel|[报表模板.xlsx]自定义表名2!r5c1:r60c6' ;   /*  继续写入下一张表 */
    
40. data _null_;
    
41. set result2;
    
42. file r1 notab linesize=2000;
    
43. put date '09'x time '09'x source '09'x duration'09'x  sql '09'x type;
    
44. run;
    
45. 
    
46. filename r1 dde "excel|system";  
    
47. data _null_;
    
48. file r1;
    
49. put '[workbook.activate("自定义表名2")]';  /* 激活其中一张表 */
    
50. put '[row.height(0,"A1:A1",false,3)]';    /* 调整行高；类似这样的跟vba比较像 */
    
51. put '[workbook.activate("自定义表名1")]';
    
52. put '[row.height(0,"A1:A1",false,3)]';
    
53. x= compress('[save.as("D:\sql('||&path2||').xlsx")]');  /* 存储一个备份到某个路径，文件名为 sql(5.16).xlsx  */
    
54. put x;
    
55. y= compress('[save.as("E:\MailFile\sql('||&path2||').xlsx")]');  /* 存储到邮件文件夹，这样由邮件自动发送excel出去 */
    
56. put y;
    
57. put '[quit]';
    
58. run;
    
59. 
    
60. /*整个程序如上，然后txt写如下内容另存为bat文件，在windows-附件-系统工具-任务计划程序里面设置每日凌晨运行这个bat即可：
    
61. D:
    
62. cd: "D:\sas_program\sas\sasfoundation\9.2\"
    
63. sas.exe -sysin "D:\thisprogramname.sas" -altlog "D:\test\log.log"
    
64. */
    
65. 
    
66. /* 上述bat第二行是你sas程序的路径，第三行表示执行的sas程序的路径和名字，然后将sas运行的日志写入到log.log中，
    
67. 以便事后查看日志 */

复制代码

扫码加我 拉你入群

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

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

分享2 收藏44 回帖

关键词：sas程序 全自动 自动化 foundation compress 报表 日常 程序

支持下

赞一个，呵呵。

学习中~~~

为什么我执行"x '"D:\报表模板.xlsx"';  "语句会出现这个错误？有option设置错误吗？ 谢谢先!
ERROR: Shell escape is not valid in this SAS session.

lz威武

thank you for share!

经典！！！！！！！！！！！！！！！

学习了，谢谢。

支持