关于SAS批量导入EXCEL问题的总结

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

很久没有发原创贴了，一是我自己变懒了，二是似乎坛里也没有以前热闹了。

趁着今天还有一些折腾劲，分享一些关于SAS批量导入EXCEL的技巧。关于这个问题，论坛里其实也有很多前辈们做过讨论，在此，做一个并不成熟的总结。

1. SAS 导入EXCEL的方法


2. 我们可能面临的情形：

3. 相应的解决方案


4. 相应的宏程序
（1）macro im_excel

1. %macro im_excel
   
2. (/*positional parameters:keep in order*/
   
3. /*<libref>.SAS-data-set*/ dsn
   
4. ,/*fileref | "filepath"*/file
   
5. /*keyword parameters*/
   
6. ,/*DBMS types: EXCEL | EXCELCS | XLS | XLSX */ dbms=excel
   
7. ,/*replace: (blank) | REPLACE */ replace=replace
   
8. ,/*range of spreedsheet:
   
9. (blank) | rangename|sheet$ | sheet$UR:LR */range=
   
10. ,/*firstobs : N*/ firstobs=1
    
11. ,/*obs: N */ obs=1048576
    
12. ,/*YES|NO */ getnames=yes
    
13. ,/*YES|NO */ scantext=yes
    
14. ,/*YES|NO */ scantime=yes
    
15. ,/*YES|NO */ usedate=yes
    
16. ,/*YES|NO */ mixed=no
    
17. );
    
18. proc import out=&dsn
    
19. datafile=&file
    
20. dbms=&dbms &replace;
    
21. range="&range";
    
22. dbdsopts="firstobs=&firstobs obs=&obs";
    
23. getnames=&getnames;
    
24. scantext=&scantext;
    
25. scantime=&scantime;
    
26. usedate=&usedate;
    
27. mixed=&mixed;
    
28. run;
    
29. %mend im_excel;

复制代码

（2）macro im_1m1excel

1. %macro im_1m1excel(RootPath,FileName,Extension);
   
2. libname MyExcel Excel "&RootPath.\&Filename..&Extension";
   
3. proc sql noprint;
   
4. select catt(trim(libname),'.',quote(trim(memname)),'n')
   
5. into: namelist seperated by ' '
   
6. from dictionary.tables
   
7. where libname in ('MYEXCEL');
   
8. quit;
   
9. %put &namelist;
   
10. data &FileName;
    
11. set &namelist;
    
12. run;
    
13. %mend im_1m1excel;

复制代码

（3）macro  im_m1mexcel

1. %macro  im_m1mexcel(dir=) ;
   
2. filename indata pipe "dir &dir /b";
   
3. data FileName;
   
4. length fname $20.;
   
5. infile indata truncover;
   
6. input fname $20.;
   
7. dname=scan(fname,1,".");
   
8. call symputx(cats('File',_n_),fname);
   
9. call symputx(cats('ds',_n_),dname);
   
10. call symputx('NumFile',_n_);
    
11. run;
    
12. %do i=1 %to &NumFile;
    
13. proc import out=&&ds&i
    
14. datafile="&Dir\&&file&i"
    
15. dbms=excel replace;
    
16. run;
    
17. %end;
    
18. %mend;

复制代码

(4)macro ExcelFiles2sas




若觉得有用，小伙伴们请给个好评吧！

扫码加我 拉你入群

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

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

分享3 收藏58 回帖

关键词：EXCEL 批量导入 xcel exce cel EXCEL

沙发啊，绝世好贴啊。

lookslike 发表于 2013-11-28 20:06
沙发啊，绝世好贴啊。

好贴都不评分，你们也太不厚道了。

支持版主，好评！！！！！！！！

代码太长，老出现乱码。改成图片了。

经典，赞一个

第一次见，支持！

有点吊。。。。。

版主装了64位版本的SAS了吗？

如何解决在64位版本SAS下的中文Excel文件（包括xls和xlsx）的导入和导出问题？没有乱码，没有该死的什么libname错误？

如果能在你的宏里用SYSVER判断下版本，以及用SYSADDRBITS判断下位数，然后相对应的用不同的设置进行导入导出就好了

牛气