呵呵，这个肯定不行

*指定数据文件所在的目录;
%let path=f:\tmp\;
*指定输出数据集前缀;
%let OutPrefix=****;
x "dir &path.*.xls /b > &path.fname.txt";

%macro importxls(filename,ith);
proc import datafile="&path.&filename" out=&OutPrefix.&ith dbms=excel replace;
run;
*以下三行语句是合并所有数据集，条件要求：数据集变量结构一致;
data all;
   set %if &ith ne 1 %then all; &OutPrefix.&ith;
run;
%mend;
data _null_;
infile "&path.fname.txt";
input filename & $100.;
*执行宏;
call execute('%importxls(' || trim(filename) || ',' || _n_ || ')');
run;

上面好像是要求在同一个文件夹下，没试过分开的，要想取得一个文件夹对应一个xls文件这样的格式，可以在关联方资金占用文件夹下按下键盘的CRTL+F，在搜索里输入*.xls，在结果里用鼠标框选你要整合到一个文件夹里使用上面程序，复制或者剪切，你看着办。

将所有的文件目录拷到D:\Try\ReadExcel\dir1\下，在上一级生成一个dirname.txt文件放所以的目录名称。在data step里面调用宏。测试了一下，好像可以

将文件目录拷贝到新建目录D:\Try\ReadExcel\dir1\下，然后在上一级目录里生成文件dirname.txt存放文件目录的名称。再用data step调用宏。测试了一下，好像可以