请问如何将多个数据集导出至同一Excel文件的多个Sheet？

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如题
有一个proc可以解决的方法吗？
是不是需要用ODS？
谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏15 回帖

关键词：sheet EXCEL xcel exce SHE Excel 如何

仅供参考。。。

1. libname test excel "d:\test.xls";
   
2. 
   
3. data test.class1;
   
4.         set sashelp.class ;
   
5. run;
   
6. 
   
7. data test.class2;
   
8.         set sashelp.class;
   
9. run;
   
10. 
    
11. data test.汉字n;
    
12.         set sashelp.class;
    
13. run;
    
14. 
    
15. libname test clear;

复制代码

可~乐 发表于 2013-5-22 15:40

甚好，甚好

如果数据集都在一个文件夹里
%macro Exporting;
%let OUT=d:\OUT\;  /**dataset folder**/
%let ExtOut=sas7bdat; /**data file as sas7bdat**/
libname sasout "&OUT";
libname Excel excel "d:\test.xls"; /**output excel file name**/
    %let RC=%sysfunc(filename(FilRF,&Out));                                                                                                
    %let Did=%sysfunc(dopen(&FilRF));      
%let MemCnt=%sysfunc(dnum(&Did));   
    %do i = 1 %to &MemCnt;                                                                                                               
         %let Name=%qscan(%qsysfunc(dread(&Did,&i)),-1,.);
        %let EXPname=%qscan(%qsysfunc(dread(&Did,&i)),1,.);
           %if %qupcase(%qsysfunc(dread(&Did,&i))) ne %qupcase(&Name) %then %do;                                                                                                      
            %if (%qupcase(&Name) = %qupcase(&ExtOut)) %then %do;      
               data Excel.&EXPname;
                    set sasout.&EXPname;
                run;
            %end;                                                                              
        %end;   
    %end;                                                                                                                                                                                                                                                      
   %let RC=%sysfunc(dclose(&Did));        
    libname Excel;
%mend Exporting;
%Exporting;

proc export data=xxx dbms=excel replace
                outfile="e:\xx\xx\abc.xls(x)";
                sheet="sheetname";
run;

slimdell 发表于 2013-5-22 17:10
如果数据集都在一个文件夹里
%macro Exporting;
%let OUT=d:\OUT\;  /**dataset folder**/

你的宏也不错，可以批量转换
只是局限在已保存至指定文件夹的dataset吧
如果是work逻辑库里的就不行了吧？

1. %macro test(lib);
   
2. options noxwait;
   
3. x "del d:\test.xls";
   
4. 
   
5. data test1;
   
6.         set sashelp.class;
   
7. run;
   
8. 
   
9. data test2;
   
10.         set sashelp.class;
    
11. run;
    
12. 
    
13. proc sql noprint;
    
14.         select count(memname) into:_nobs from sashelp.vtable where libname="%upcase(&lib)";
    
15.         select memname into:_memname separated by " " from sashelp.vtable where libname="%upcase(&lib)";
    
16. quit;
    
17. 
    
18. libname test excel "d:\test.xls";
    
19. 
    
20. %do i=1 %to &_nobs.;
    
21.         %let tablename=%scan(&_memname.,&i.);
    
22.                 data test.&tablename.;
    
23.                         set &tablename.;
    
24.                 run;
    
25. 
    
26. %end;
    
27. 
    
28. libname test clear;
    
29. 
    
30. %mend;
    
31. 
    
32. %test(work);

复制代码

playmore 发表于 2013-5-23 08:41
你的宏也不错，可以批量转换
只是局限在已保存至指定文件夹的dataset吧
如果是work逻辑库里的就不行了吧 ...

对的，我们会把需要转换的文件保存到指定文件夹

可~乐 发表于 2013-5-23 09:42

各位乡亲都太热心了
你这个宏也不错
可以做个主题贴了
这样可以帮到更多人