第一步:在E盘根目录下键入dir *.txt /b >ex.txt,将50个txt文件名导入文本文件ex.txt中

*第二步:生成宏文本文件a.txt,代码如下:;

data temp;
infile "e:\xw.txt" dlm='.';
input filename $ doc $;
file "e:\a.txt";
put '%a(' filename ')';
run;

第三步:编制宏并存入目标文件中

data obj;*目标文件名为obj;
delete;
run;

%macro a(f);
data &f;
infile "e:\&f..txt" ;
filename="&f.";
input x1-x4;*假设有4个数值型变量;
run;
data obj;
set obj &f.;
run;
%mend a;*以上是定义宏,宏名可以随便起,但要和第二步中的宏文本文件中的宏名保持一致;

*filename="&f."这一句用来识别数据来源,注意这里不能用单引号;

%include "e:\a.txt";*运行宏;
run;

%macro readmultidata(from,to); /*定义一个宏，带两个基本参数*/
 %do i = &from. %to &to.;  /*进行循环，从第一个参数执行到最后一个参数*/
　
  data temp;　　/*每一次循环都建立一个名为temp的数据集，读入

　　　　　　　　　　　　　　路径下名为data＋当前宏变量的数据*/
   infile "d:\abc\def\data&i..csv";
   input x;
 run;

/*　在循环的第一步，注意是&i=&from，而不是上面的　i=from ,建立base数据集，注意只在第一步时建立，从第２步开始，每一步都向base追加新生成的temp文件，一直追加到循环的最后一步．*/

 %if &i. = &from. %then %do; data base; set temp; run;%end;
 %else %do; data base;set base temp;%end;

/*也可以把else　do　后面的语句改成，

　　proc append base=base data=temp ,看得更清楚*/

 %end;

%mend;
%readmultidata(1,50)

调用宏，反复读入５０次数据，第１次建立base，随后４９次追加到base，明白否？