根据mingfeng大哥的提醒，我模仿程序如下，但是自己遇到一些小问题，程序见此，仍希望mingfeng大哥指点：

%macro test;
%do i=1 %to 3;
proc import out=a&i. file="C:\Users\administrator\Desktop\import_xls\CG_Director&i..xls" dbms=excel replace;
getnames=yes;
run;
%end;
%mend;
%test

data test;

length D0101b $6 D0201a $6 D0201b $100;

set a1 a2 a3;

run;

日志显示：