[求助]求教高手一个SAS的DDE问题-经管之家官网！

免费学术公开课,扫码加入

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;

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP