原代码如下:
data allform1;
set form;
drop COL1;
run;
%macro output(_LABEL_);
ods excel options(sheet_name="&_LABEL_.") ;
ods trace on;
PROC PRINT DATA=&_LABEL_. noobs label;
RUN;
%mend;
DATA _NULL_;
set allform1;
call execute(compress('%output('||_LABEL_||');'));
run;
ods _all_ close;
ods excel file = "路径\AAA_&sysdate9..xlsx";
ods excel close;