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;