大侠 我用下面的程序，可以读一个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的方式，因为速度的原因。 请问怎么循环这个宏程序呢？ 万分感谢