SAS一次性导出逻辑库所有数据集到excel

各位大神，我现在sas有个逻辑库，里面有几个数据集，现在我想一次性将数据集导出到excel里面，不同的数据集分成不同的excel的sheet，请问怎么实现？

1. %macro export(libname,outfile,filename,type,dbms);
   
2.         %let libname=%upcase(&libname);
   
3.         proc sql noprint;
   
4.                 select memname,count(memname) into : memlist separated by '\', : nummem
   
5.                 from dictionary.tables
   
6.                 where libname="&libname";
   
7.         run;
   
8.         quit;
   
9. 
   
10.         %do i=1 %to &nummem;
    
11.                 %let memname=%scan(&memlist,&i,\);
    
12.                 proc export data=&libname..&memname
    
13.                         outfile="&outfile\&filename..&type"
    
14.                         dbms=&dbms replace;
    
15.                         sheet="&memname";
    
16.                 run;
    
17.         %end;
    
18. %mend export;
    
19. %export(work,C:\Documents and Settings\Administrator\桌面,test,xlsx,xlsx)

复制代码

稍微修改了一下，我测试了一下，工作正常。

1. %macro export(libname,outfile,filename,type,dbms);
   
2.         %let libname=%upcase(&libname);
   
3.         proc sql noprint;
   
4.                 select memname,count(memname) into : memlist separated by '\', : nummem
   
5.                 from dictionary.tables
   
6.                 where libname="&libname";
   
7.         run;
   
8.         quit;
   
9. 
   
10.         %do i=1 %to &nummem;
    
11.                 %let memname=%scan(&memlist,&i,\);
    
12.                 proc export data=&libname..&memname
    
13.                         outfile="&outfile\&filename..&type"
    
14.                         dbms=&dbms;
    
15.                 run;
    
16.         %end;
    
17. %mend export;
    
18. %export(work,C:\Documents and Settings\Administrator\桌面,test,xls,excel)

复制代码

借花献佛，自己也写了一个，但还是这个好！

不错，谢谢分享

l1i2n3i4n5g 发表于 2017-8-30 22:32
借花献佛，自己也写了一个，但还是这个好！

谢谢！