求助sas 循环：只想把 %excelexp(code=00000i.SZ) 跑1000次

我%macro excelexp(code);
    ...
   %mend excelexp;已经完成了，
用 %excelexp(code=000001.SZ) 运行了也可以；我只想把%excelexp(code=000001.SZ)运行2000次，并且每次只改变“000001.SZ”（由000001.SZ-002000.SZ），我以为只要编写
do i=1 to 10;
%excelexp(code=00000i.SZ);
end;
可是不行，哪位大牛能够指点一下吗？万分感谢！

易丹 2013-06-19

陶然 发表于 2013-8-19 16:13
补充一句，我发现有两个需要解决的问题：1.编写调用宏的循环；2.由于在宏函数里面的变量实际是字符型的（e. ...

1. %macro excelexp(code);
   
2.     %put &code;
   
3. %mend excelexp;
   
4. 
   
5. %macro exec(i);
   
6. %do j=1 %to &i;
   
7. %let mycode=%sysfunc(putn(%sysfunc(inputn(&j,4.)),z6.)).SZ;
   
8. %excelexp(code=&mycode);
   
9. %end;
   
10. %mend exec;
    
11. 
    
12. %exec(i=2000);

复制代码

补充一句，我发现有两个需要解决的问题：1.编写调用宏的循环；2.由于在宏函数里面的变量实际是字符型的（e.g.000001），如何把i=1——>000001，也需要我思考

1. %macro excelexp(code);
   
2.     %put &code;
   
3. %mend excelexp;
   
4. 
   
5. %macro exec(i);
   
6. %do j=1 %to &i;
   
7. %let mycode=%sysfunc(putn(%sysfunc(inputn(&j,4.)),z6.)).SZ;
   
8. %excelexp(code=&mycode);
   
9. %end;
   
10. %mend exec;
    
11. 
    
12. %exec(i=2000);

复制代码

rickyking 发表于 2013-8-19 16:09

我尝试了这个代码，跑得通，谢谢！
请允许我追问一个问题：我要处理的问题是循环导入excel文件，但是有一些编号是缺失的，例如：000001.SZ, 000002.SZ, 000004.SZ, 000005.SZ, 000006.SZ...有没有办法不导入那些不存在的excel呢？

rickyking 发表于 2013-8-19 21:36

并且看了，缺失的那些excel并无规律可循

先判断是否存在该excel文件

小春1988 发表于 2013-8-21 18:33
先判断是否存在该excel文件

请问一下，应该如何先判断是否存在该excel呢？

rickyking 发表于 2013-8-19 21:36

请教一下，可以实现读入数据库的最后50条数据吗？
嗯，我知道读取前50条数据的命令是：
data datanew;
set data(firstobs=1 obs=50);
run;

陶然 发表于 2013-8-22 11:48
请教一下，可以实现读入数据库的最后50条数据吗？
嗯，我知道读取前50条数据的命令是：
data datanew;
...

1. data t;
   
2.   input x;
   
3. datalines;
   
4. 1
   
5. 2
   
6. 3
   
7. 4
   
8. ;
   
9. 
   
10. %let dsid=%sysfunc(open(t));
    
11. %let num=%sysfunc(attrn(&dsid,nlobs));
    
12. %let rc=%sysfunc(close(&dsid));
    
13. %let number = 2;
    
14. 
    
15. data tt;
    
16. set t (firstobs =  %eval(&num.-&number.+1));
    
17. run;

复制代码