下面是我写的一个小程序,想建立一个宏能够时间对图回写到excel里,但一运行就卡死,不知道是哪里的问题,想请教各位高人,不吝赐教!
%macro graph;
goption gsfname=gsfout dev=png;
filename gsfout "e:\f1.png";
proc gplot data=case24_4;
plot alt1*alt2/nofr;
run;
filename xls dde'excel|system';
data _null_;
file xls;
put"[workbook.activate(%bquote("f1"))]";
put"[select(%bquote("r1c1"))]";
put"[insert.picture(%bquote("e:\f1.png"))]";
run;
%mend graph;
data case24_4;
input group id age sex alt1 alt2;
cards;
2 11 39 1 46 37
2 12 43 2 32 24
1 13 47 1 70 54
1 14 45 1 31 23
2 21 56 1 23 19
2 22 59 1 16 22
1 23 52 1 60 63
1 24 50 1 72 37
1 31 54 2 17 24
1 32 53 2 73 63
;
run;
proc sort data=case24_4; by group;
%graph