大侠
我用下面的程序，可以读一个excel中的所有的sheet
%macro im_1m1excel(RootPath,FileName,Extension);
libname MyExcel Excel "&RootPath.\&Filename..&Extension";

proc sql noprint;
select catt(trim(libname),'.',quote(trim(memname)),'n')
into: namelist separated by ' '
from dictionary.tables
where libname in ('MYEXCEL');
quit;

%put &namelist;
data &FileName;
set &namelist;
run;
%mend im_1m1excel;

%im_1m1excel(d:\,update20140307,xlsx);



但，在文件夹d:\下面有很多的excel，我想也用这个方法批量读d:\所有excel中的所有sheet
而且要用上面这种proc sql 的方式，不用proc improt的方式，因为速度的原因。

请问怎么循环这个宏程序呢？

万分感谢