导入excel中的所有sheet和导入同一文件夹下所有excel中的多个sheet

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

导入excel中的所有sheet

1. %macro import(xlsname);/*xlsname为所需导入excel的名称*/
   
2. /*定义所需导入excel的地址*/
   
3. %let dir=C:\Documents and Settings\Administrator\桌面\桌面\test;
   
4. 
   
5. /*定义临时逻辑库test，并把excel中的所有sheet映射到逻辑库test中*/
   
6. libname test "&dir.\&xlsname.";
   
7. run;
   
8. 
   
9. proc sql noprint;
   
10.         select count(distinct memname) into :number
    
11.         from sashelp.vmember
    
12.         where libname="TEST";/*计算excel中sheet的个数*/
    
13.         select compress(memname,"$") into :sheet1 - :sheet%left(&number)
    
14.         from sashelp.vmember
    
15.         where libname="TEST";/*将各个sheet的名字分别赋给宏变量*/
    
16. quit;
    
17. 
    
18. /*将各个sheet分别进行导入*/
    
19. %do i=1 %to &sqlobs;
    
20.     proc import out=&&sheet&i. datafile="&dir.\&xlsname" dbms=excel replace;
    
21.         getnames=yes;
    
22.                 sheet="&&sheet&i";
    
23.                 mixed=yes;
    
24.         run;
    
25. %end;
    
26. 
    
27. %mend;

复制代码

导入同一文件夹下所有excel中的多个sheet

1. %macro directory(dir=);
   
2. %let rs=%sysfunc(filename(filref,&dir));
   
3. %let did=%sysfunc(dopen(&filref));
   
4. %let nobs=%sysfunc(dnum(&did));
   
5. 
   
6. %do i=1 %to &nobs.;
   
7.     %let name=%qscan(%qsysfunc(dread(&did,&i)),1,.);
   
8.     %let ext=%qscan(%qsysfunc(dread(&did,&i)),-1,.);
   
9. 
   
10.         libname test "&dir.\&name..&ext.";
    
11.         run;
    
12. 
    
13.         proc sql noprint;
    
14.                 select count(distinct memname) into :number
    
15.                 from sashelp.vmember
    
16.                 where libname="TEST";
    
17.                 select compress(memname,"$") into :sheet1 - :sheet%left(&number)
    
18.                 from sashelp.vmember
    
19.                 where libname="TEST";
    
20.         quit;
    
21. 
    
22. %do j=1 %to &sqlobs;
    
23.     proc import out=&&sheet&j. datafile="&dir.\&name..&ext." dbms=excel replace;
    
24.         getnames=yes;
    
25.                 sheet="&&sheet&j";
    
26.                 mixed=yes;
    
27.         run;
    
28. %end;
    
29. 
    
30. %end;
    
31. 
    
32. %let rc=%sysfunc(dclose(&did));
    
33. 
    
34. %mend;

复制代码

扫码加我 拉你入群

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

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

分享1 收藏6 回帖

关键词：EXCEL sheet exce xcel SHE

感谢，学习了。
最近正在导入大量的xls文件。每一个文件都很大。我也做了一个宏。但不如您的精致。

拿来用一下  谢谢您

为什么把替换的替换后，运行没有反应？？

kongqunyu 发表于 2014-3-17 16:00
为什么把替换的替换后，运行没有反应？？

看了一下代码，引号变成了"，不会是论坛的bug吧。。。

感谢分享，帮助很大

1. /*Macro to read data sheet from one Excel file*/
   
2. 
   
3. %macro import(xlsname);
   
4. 
   
5. %let dir=C:\AAA\test;
   
6. 
   
7. libname test "&dir.\&xlsname";
   
8. 
   
9. proc sql noprint;
   
10.         select count(distinct memname) into :number
    
11.         from sashelp.vmember
    
12.         where libname="TEST"
    
13.         select compress(memname,"$") into :sheet1 - :sheet%left(&number)
    
14.         from sashelp.vmember
    
15.         where libname="TEST";
    
16. quit;
    
17. 
    
18. %do i=1 %to &sqlobs;
    
19.     proc import out=&&sheet&i datafile="&dir.\&xlsname"; dbms=excel replace;
    
20.         getnames=yes;
    
21.                 sheet="&&sheet&i";
    
22.                 mixed=yes;
    
23.         run;
    
24. %end;
    
25. 
    
26. %mend;

复制代码

1. /*Read excel files from the same directory*/
   
2. 
   
3. %macro directory(dir=);
   
4. %let rs=%sysfunc(filename(filref,&dir));
   
5. %let did=%sysfunc(dopen(&filref));
   
6. %let nobs=%sysfunc(dnum(&did));
   
7. 
   
8. %do i=1 %to &nobs;
   
9.     %let name=%qscan(%qsysfunc(dread(&did,&i)),1,.);
   
10.     %let ext=%qscan(%qsysfunc(dread(&did,&i)),-1,.);
    
11. 
    
12.         libname test "&dir.\&name..&ext";
    
13.         run;
    
14. 
    
15.         proc sql noprint;
    
16.                 select count(distinct memname) into :number
    
17.                 from sashelp.vmember
    
18.                 where libname="TEST";
    
19.                 select compress(memname,"$") into :sheet1 - :sheet%left(&number)
    
20.                 from sashelp.vmember
    
21.                 where libname="TEST";
    
22.         quit;
    
23. 
    
24. %do j=1 %to &sqlobs;
    
25.     proc import out=&&sheet&j datafile="&dir.\&name..&ext." dbms=excel replace;
    
26.         getnames=yes;
    
27.                 sheet="&&sheet&j";
    
28.                 mixed=yes;
    
29.         run;
    
30. %end;
    
31. 
    
32. %end;
    
33. 
    
34. %let rc=%sysfunc(dclose(&did));
    
35. 
    
36. %mend;

复制代码

赞一个！