SAS批量导入excel多sheet文件

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

复制代码

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=%qsysfunc(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. 
    
26. 但我输入如下代码后，出现报错：
    
27. %ExcelFiles2sas(folder=E:\11.9\sas\data, subfd=N , exclfd=N, startrow=1);
    
28.           -
    
29.           180
    
30. WARNING: 没有解析宏 EXCELFILES2SAS 的调用。
    
31. 
    
32. ERROR 180-322: 语句无效或未按正确顺序使用。
    
33. 请各位大佬帮忙解释一下，是什么地方出问题。
    
34. 万分感谢！
    
35. 
    
36. ));
    
37.                                          call symputx(cats('sheet',n),memname,'L');
    
38.                                           if last then call symputx('_cnt',_n_,'L');
    
39.                                          run;
    
40.                                 Libname excellib clear;
    
41.                                        
    
42.                                                 %do _j=1 %to &_cnt;
    
43.                                                     proc import datafile="&folder\& filename"
    
44.                                                              out=%cmpres(&_s_name._&&sheet&_j)
    
45.                                                                    dbms=excel replace;
    
46.                                                                         range="&&sheet&_j..[        DISCUZ_CODE_2        ]amp;startrow.:65000";
    
47.                                                                                 mixed=yes;
    
48.                                                                                 getnames=yes;
    
49.                                                                   run;
    
50.                                                                 %end;
    
51.                                         %end;
    
52. 
    
53.                                         %else %if %upcase(& s ext)= and &subfd=Y
    
54.                                                   and %qsysfunc(indexw(&exclfd,&_filename))=0 %then
    
55.                                         %do;
    
56.                                         %let rc=%sysfunc(dclose(& dsid));
    
57.                                           %xlx2sas(folder=&folder\&_filename,subfd=&subfd,
    
58.                                           exclfd=&exclfd, startrow=&startrow)
    
59.                                         %end;
    
60.                                 %end;
    
61.                         %end;
    
62.                 %end;
    
63.         %let rc=%sysfunc(dclose(&_dsid));
    
64. 
    
65.         %mend ExcelFiles2sas;

复制代码

但我输入如下代码后，出现报错：
%ExcelFiles2sas(folder=E:\11.9\sas\data, subfd=N , exclfd=N, startrow=1);
          -
          180
WARNING: 没有解析宏 EXCELFILES2SAS 的调用。

ERROR 180-322: 语句无效或未按正确顺序使用。
请各位大佬帮忙解释一下，是什么地方出问题。
万分感谢！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

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

漏了一个“\“， 试试 %ExcelFiles2sas(folder=E:\11.9\sas\data\, subfd=N , exclfd=N, startrow=1);

xiaopingN 发表于 2021-11-10 23:56
漏了一个“\“， 试试 %ExcelFiles2sas(folder=E:\11.9\sas\data\, subfd=N , exclfd=N, startrow=1);

感谢帮助，报错如下：
%ExcelFiles2sas(folder=E:\11.9\sas\data\, subfd=N , exclfd=N, startrow=1);
     -
     180
WARNING: 没有解析宏 EXCELFILES2SAS 的调用。

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

Enid_ 发表于 2021-11-11 11:09
感谢帮助，报错如下：
%ExcelFiles2sas(folder=E:\11.9\sas\data\, subfd=N , exclfd=N, startrow=1);
...

宏变量名没有拼写对： %let s ext=%scan(& filename,2,.);
改成 %let _s_ext=%scan(& filename,2,.);

Enid_ 发表于 2021-11-11 11:09
感谢帮助，报错如下：
%ExcelFiles2sas(folder=E:\11.9\sas\data\, subfd=N , exclfd=N, startrow=1);
...

又仔细看了你的code， 好些宏变量名都漏了“-”。

xiaopingN 发表于 2021-11-13 01:29
又仔细看了你的code， 好些宏变量名都漏了“-”。

感谢回答。您说得对，SAS报错就是宏无法引用。
但因为我不是很懂宏，所以都是复制他人的。
不知道您是否可以告知哪些宏变量名漏了“-”呢？

xiaopingN 发表于 2021-11-13 01:29
又仔细看了你的code， 好些宏变量名都漏了“-”。

您好！刚试图修改code，按您的意思，目前宏已经可以引用。
但是仍然报错。
错误如下：
ERROR: 在需要数值操作数的 %EVAL 函数或 %IF 条件中发现字符操作数。条件是: & num>0
ERROR: 宏 EXCELFILES2SAS 将终止执行。

期待您的解答。

xiaopingN 发表于 2021-11-13 01:29
又仔细看了你的code， 好些宏变量名都漏了“-”。

您好！感谢回复，刚按照您的回答修改问题后，解析宏的问题已解决。

xiaopingN 发表于 2021-11-13 01:29
又仔细看了你的code， 好些宏变量名都漏了“-”。

ERROR: 在需要数值操作数的 %EVAL 函数或 %IF 条件中发现字符操作数。条件是: & num>0
ERROR: 宏 EXCELFILES2SAS 将终止执行。

xiaopingN 发表于 2021-11-13 01:29
又仔细看了你的code， 好些宏变量名都漏了“-”。

ERROR: 在需要数值操作数的 %EVAL 函数或 %IF 条件中发现字符操作数。条件是: & num>0
ERROR: 宏 EXCELFILES2SAS 将终止执行。

但是出现了新的报错，请问这个问题怎么理解呢？