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

我把图片的代码copy下来了。
但同时有一个问题，我的电脑显示错误。我最后是用如下宏进行运算

        %ExcelFiles2sas(folder=E:\11.9\sas\data, subfd=N , exclfd=N, startrow=1);


但是SAS报错了，如下所示：

1056      %ExcelFiles2sas(folder=E:\11.9\sas\data, subfd=N , exclfd=N, startrow=1);
          -
          180
WARNING: 没有解析宏 EXCELFILES2SAS 的调用。

ERROR 180-322: 语句无效或未按正确顺序使用。

这是我copy的代码

%macro ExcelFiles2sas(folder= , subfd= , exclfd= , startrow= );
*;
        %local _j _cnt _dsid _i _num _s_ext _s_name _filename _rc;
        %let _rc=%qsysfunc(filename(filrf,&folder));

         %if &_rc=0 %then
         %do;
                %let dsid=%sysfunc(dopen(&filrf));
                %if &_dsid>0 %then
                %do;
                   %let num=%sysfunc(dnum(&_dsid));
                 %if & num>0 %then
                                 %do _i=1 %to &_num;
                                %let _filename=%sysfunc(dread(&_dsid,&_i));
                                %let _s_name=%scan(&_filename,1,.);
                                %let s ext=%scan(& filename,2,.);
                        %if %upcase(&_s_ext)=XLS or%upcase(&_s_ext)=XLSX %then
                        %do;

                                        Libname excellib excel "&folder\&_filename";
                                        data null;
                                         set sashelp.vstabvw end=last;
                                         where libname="EXCELLIB";
                                        memname=upcase(scan(memname,1,'$'));
                                         call symputx(cats('sheet',n),memname,'L');
                                          if last then call symputx('_cnt',_n_,'L');
                                         run;
                                Libname excellib clear;
                                       
                                                %do _j=1 %to &_cnt;
                                                    proc import datafile="&folder\& filename"
                                                             out=%cmpres(&_s_name._&&sheet&_j)
                                                                   dbms=excel replace;
                                                                        range="&&sheet&_j..$&startrow.:65000";
                                                                                mixed=yes;
                                                                                getnames=yes;
                                                                  run;
                                                                %end;
                                        %end;

                                        %else %if %upcase(& s ext)= and &subfd=Y
                                                  and %qsysfunc(indexw(&exclfd,&_filename))=0 %then
                                        %do;
                                        %let rc=%sysfunc(dclose(& dsid));
                                          %xlx2sas(folder=&folder\&_filename,subfd=&subfd,
                                          exclfd=&exclfd, startrow=&startrow)
                                        %end;
                                %end;
                        %end;
                %end;
        %let rc=%sysfunc(dclose(&_dsid));

        %mend ExcelFiles2sas;

%macro ExcelFiles2sas(folder= , subfd= , exclfd= , startrow= );
*;
        %local _j _cnt _dsid _i _num _s_ext _s_name _filename _rc;
        %let _rc=%qsysfunc(filename(filrf,&folder));

         %if &_rc=0 %then
         %do;
                %let dsid=%sysfunc(dopen(&filrf));
                %if &_dsid>0 %then
                %do;
                   %let num=%sysfunc(dnum(&_dsid));
                 %if & num>0 %then
                                 %do _i=1 %to &_num;
                                %let _filename=%sysfunc(dread(&_dsid,&_i));
                                %let _s_name=%scan(&_filename,1,.);
                                %let s ext=%scan(& filename,2,.);
                        %if %upcase(&_s_ext)=XLS or%upcase(&_s_ext)=XLSX %then
                        %do;

                                        Libname excellib excel "&folder\&_filename";
                                        data null;
                                         set sashelp.vstabvw end=last;
                                         where libname="EXCELLIB";
                                        memname=upcase(scan(memname,1,'$'));
                                         call symputx(cats('sheet',n),memname,'L');
                                          if last then call symputx('_cnt',_n_,'L');
                                         run;
                                Libname excellib clear;
                                       
                                                %do _j=1 %to &_cnt;
                                                    proc import datafile="&folder\& filename"
                                                             out=%cmpres(&_s_name._&&sheet&_j)
                                                                   dbms=excel replace;
                                                                        range="&&sheet&_j..$&startrow.:65000";
                                                                                mixed=yes;
                                                                                getnames=yes;
                                                                  run;
                                                                %end;
                                        %end;

                                        %else %if %upcase(& s ext)= and &subfd=Y
                                                  and %qsysfunc(indexw(&exclfd,&_filename))=0 %then
                                        %do;
                                        %let rc=%sysfunc(dclose(& dsid));
                                          %xlx2sas(folder=&folder\&_filename,subfd=&subfd,
                                          exclfd=&exclfd, startrow=&startrow)
                                        %end;
                                %end;
                        %end;
                %end;
        %let rc=%sysfunc(dclose(&_dsid));

        %mend ExcelFiles2sas;

1. %macro ExcelFiles2sas(folder= , subfd= , exclfd= , startrow= );
   
2. *;
   
3.         %local _j _cnt _dsid _i _num _s_ext _s_name _filename _rc;
   
4.         %let _rc=%qsysfunc(filename(filrf,&folder));
   
5. 
   
6.          %if &_rc=0 %then
   
7.          %do;
   
8.                 %let dsid=%sysfunc(dopen(&filrf));
   
9.                 %if &_dsid>0 %then
   
10.                 %do;
    
11.                    %let num=%sysfunc(dnum(&_dsid));
    
12.                  %if & num>0 %then
    
13.                                  %do _i=1 %to &_num;
    
14.                                 %let _filename=%sysfunc(dread(&_dsid,&_i));
    
15.                                 %let _s_name=%scan(&_filename,1,.);
    
16.                                 %let s ext=%scan(& filename,2,.);
    
17.                         %if %upcase(&_s_ext)=XLS or%upcase(&_s_ext)=XLSX %then
    
18.                         %do;
    
19. 
    
20.                                         Libname excellib excel "&folder\&_filename";
    
21.                                         data null;
    
22.                                          set sashelp.vstabvw end=last;
    
23.                                          where libname="EXCELLIB";
    
24.                                         memname=upcase(scan(memname,1,'$'));
    
25.                                          call symputx(cats('sheet',n),memname,'L');
    
26.                                           if last then call symputx('_cnt',_n_,'L');
    
27.                                          run;
    
28.                                 Libname excellib clear;
    
29.                                        
    
30.                                                 %do _j=1 %to &_cnt;
    
31.                                                     proc import datafile="&folder\& filename"
    
32.                                                              out=%cmpres(&_s_name._&&sheet&_j)
    
33.                                                                    dbms=excel replace;
    
34.                                                                         range="&&sheet&_j..$&startrow.:65000";
    
35.                                                                                 mixed=yes;
    
36.                                                                                 getnames=yes;
    
37.                                                                   run;
    
38.                                                                 %end;
    
39.                                         %end;
    
40. 
    
41.                                         %else %if %upcase(& s ext)= and &subfd=Y
    
42.                                                   and %qsysfunc(indexw(&exclfd,&_filename))=0 %then
    
43.                                         %do;
    
44.                                         %let rc=%sysfunc(dclose(& dsid));
    
45.                                           %xlx2sas(folder=&folder\&_filename,subfd=&subfd,
    
46.                                           exclfd=&exclfd, startrow=&startrow)
    
47.                                         %end;
    
48.                                 %end;
    
49.                         %end;
    
50.                 %end;
    
51.         %let rc=%sysfunc(dclose(&_dsid));
    
52. 
    
53.         %mend ExcelFiles2sas;

复制代码