关于SAS批量导入EXCEL问题的总结-经管之家官网！

很久没有发原创贴了，一是我自己变懒了，二是似乎坛里也没有以前热闹了。
趁着今天还有一些折腾劲，分享一些关于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）macroim_m1mexcel

1. %macroim_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
若觉得有用，小伙伴们请给个好评吧！