ss20120101.xlsx
(10.92 KB)
%macro directory(dir=C:\Documents and Settings\Administrator\桌面\s2013);
%let rs=%sysfunc(filename(filref,&dir));
%let did=%sysfunc(dopen(&filref));
%let nobs=%sysfunc(dnum(&did));
%do i=1 %to &nobs.;
%let name=%qscan(%qsysfunc(dread(&did,&i)),1,.);
%let ext=%qscan(%qsysfunc(dread(&did,&i)),-1,.);
proc import out=&name. datafile="&dir.\&name..&ext" dbms=dlm replace;
getnames=no;
datarow=1;
run;
%end;
%let rc=%sysfunc(dclose(&did));
%mend;
%directory(dir=C:\Documents and Settings\Administrator\桌面\s2013);
希望能得到您的解答,非常感谢^^




雷达卡



京公网安备 11010802022788号







