option validvarname = any;
proc import out=test datafile="D:\test"
dbms=excel replace;getnames=yes;
run;
proc contents out=info noprint;run;
proc sql noprint;
select distinct compbl(name||'='||lowcase(compress(upcase(name),,'ku'))) into: renames separated by ' 'from info;
quit;
proc datasets lib=work nolist;
modify test;
rename &renames.;
run;quit;
SAS数据集