SAS批量导出sas7bdata至excel

/*创建输出excel的宏*/
%macro export(inlib,intbl,outpath,outfile);
  proc export data=&inlib..&intbl  
    outfile= "&outpath\&outfile..xls"     
    dbms=xls label replace;
    putnames=yes;
  run;
%mend;

%let outpath=F:\excel_files; /*输出excel路径*/ 
%let inpath=F:\sas7bdata_files;/*sas数据所在路径*/
libname source "&inpath";/*创建逻辑库source*/
data _null_;
  set sashelp.vstable (where=(libname='SOURCE'));
  call execute(cats('%nrstr(%export)('
                   ,catx(',',libname,memname,'&outpath',memname)
                   ,')'));
run;