一个关于循环使用宏的问题

我写了一个简单的宏

%macro fileinput(file_name);
       proc import file = XXX out=&file_name dbms=excel replace;
                   sheet=&file_name;
                   getnames=yes;
       run;
       data &file_name ;
              set &file_name;
              exp = input(value, 10.);
              where id~=.;
       run;
       proc sql;
              create table n_&file_name as
              select avg(exp) as p&file_name, count(id) as n&file_name
              from &file_name
              where A = B;
%mend fileinput;

然后我想引用此宏1000次，比如文件名为‘北京，上海，台北，香港，天津，重庆，斯里兰卡，纽约，东京，新德里。。。。。’一千个。

请问高手怎么做？谢谢。

宏参数是sheet名字，也就是说是一个指定excel中有一千个sheet。

1. libname xls excel 'xxxx';
   
2. proc sql noprint;
   
3. select count(*) as cnt into: cnt
   
4. from sashelp.vstable
   
5. where memtype='DATA' and libname='XLS';
   
6. 
   
7. select memname into: memlist separated by "*"
   
8. from sashelp.vstable
   
9. where memtype='DATA' and libname='XLS';
   
10. quit;
    
11. 
    
12. %do i=1 to &cnt;
    
13. %let memname=%scan(&memlist,&i,*);
    
14. %let leg=%eval(%length(&memname)-1);
    
15. %let mem=%substr(&memname,1,&leg);
    
16. %fileinput("&memname");
    
17. %end;
    
18. libname xls clear;

复制代码

此代码是依赖于你定义的那个简单宏而写的。
%fileinput这个宏可以再简单些，proc import的语句可以不需要。后面稍作修改就可以

额 我以为一个excel最多256个表呢，原来限定早解除了

data excelname ;
filename excelname pipe  'dir  c:\crackman/b'; /*b不能去，这个为你存放excel文件的文件夹名*/
length excelname $20.;
infile excelname truncover;
input name $30.;
obs=_n_;
excelname=compress(name,'.xls');/*获取文件夹下的excel文件名，如果你的所有文件都是sheet，放在一个xls文件下就不行*/
run;
proc sql noprint;
select count(*) as count into:count from excelname ;/*获得有多少个xls文件*/
%crackman(&count.);
quit;
%macro crackman (count); /*循环语句，调用宏fileinput,把数据集中excelname中的excel那么作为参数传递进去*/
%do i=1 %to &count.;
proc sql noprint;
select excelname into:file_name from excelname where obs=&i.;
%fileinput(&&file_name.);
quit;
%mend crackman;

4# crackman
pipe确实是好办法，不过，注意楼主的宏中，import的file option应该是写死的，宏参数file_name实际是sheet的名字。
所以这个更可能是一个excel中有多个sheet导入问题，而不是多个excel文件的导入问题。
管道语句还需依赖sas所处操作系统，windows是dir，linux就是ls了。

%do i=1 to &cnt;
%let memname=%scan(&memlist,1,*);
%let leg=%eval(%length(&memname)-1);
%let mem=%substr(&memname,1,&leg);
%fileinput("&memname");
%end;
这个部分是我一直很疑惑 的部分
我的理解是不是可以改成
%let memname=%scan(&memlist,&i.,*);

6# crackman
呵呵，笔误，是我写错了。

我个人觉得如果是sheet名字的话
1000个sheet
就是看也很麻烦吧

多谢各位了，请问如果把论坛币转给第一个回答的人？新手，见谅。

yatming 发表于 2010-4-21 10:36
宏参数是sheet名字，也就是说是一个指定excel中有一千个sheet。

1. libname xls excel 'xxxx';
   
2. proc sql noprint;
   
3. select count(*) as cnt into: cnt
   
4. from sashelp.vstable
   
5. where memtype='DATA' and libname='XLS';
   
6. 
   
7. select memname into: memlist separated by "*"
   
8. from sashelp.vstable
   
9. where memtype='DATA' and libname='XLS';
   
10. quit;
    
11. 
    
12. %do i=1 to &cnt;
    
13. %let memname=%scan(&memlist,&i,*);
    
14. %let leg=%eval(%length(&memname)-1);
    
15. %let mem=%substr(&memname,1,&leg);
    
16. %fileinput("&memname");
    
17. %end;
    
18. libname xls clear;

复制代码

此代码是依赖于你定义的那个简单宏而写的。
%fileinput这个宏可以再简单些，proc import的语句可以不需要。后面稍作修改就可以

多谢了，水平有限，没看明白，请问能不能给我简单解释一下。另外运行的时候报错
ERROR: The following columns were not found in the contributing tables: memtype.

除了文件名字之外，还有什么需要我替换的吗？