[求助]求教高手一个SAS的DDE问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

data a;
input x y z;
cards;
1 2 3
3 4 6
;
run;

%let data1=a; /* 输入数据表名 */
%let title="Title Test!!!"; /* 输入Title */
%let path="d:\try.xls"; /* 输入保存的路径以及文件名*/

option noxwait;
x del &path.;
x start excel;

filename body dde 'excel|sheet1!r1c1:r60000c100' notab;
filename cmds dde 'excel|system';

%let dsid1=%sysfunc(open(&data1));
%let nobs1=%eval(%sysfunc(attrn(&dsid1,nobs))+3);
%let nvar1=%eval(%sysfunc(attrn(&dsid1,nvars)));
%let dsid1=%sysfunc(close(&dsid1));

data _null_;
set &data1 end=last;
file body;
t='09'x;
if _n_=1 then do;
put &title;
put ;

put
'a' t
'a' t
'a'

;
end;
/* 输入字段名 */
put
x t
y t
z

;
if last then do;
put '!DDE_FLUSH';
file cmds;
put '[workbook.activate("sheet1")]';/*
put %unquote(%bquote('[select("r3c1:r&nobs1.c&nvar1.")]'));
put '[border(2,1,1,1,1)]';
put '[column.width(0,,false,3)]';
put '[format.font(,,,,,,11)]'; */
put %unquote(%bquote('[select("r1c1:r3c&nvar1.")]'));
put '[format.font(,,"TRUE",,,,11)]';
put '[alignment(7)]';
put %unquote(%bquote('[save.as(&path.)]'));
put '[file.close("TRUE","FALSE")]';
put '[quit]';
end;
run;

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：sas的 DDE Alignment filename workbook 高手 SAS 求教 DDE