SAS批量读入Excel+批量修改变量名

1、精选优质文档-倾情为你奉上收集了N多Excel表格，如何将他们汇总在一块儿呢？如果会VBA，这或许也不是一件难事，事实上有些Excel插件就可以解决这个问题。这里看看如何用SAS来解决/*指定需要合并的文件的路径*/%let path=D:test;/*注意dir后面与路径之间要有空格*/filename files pipe dir &path /b;/*读入文件名列表*/data test;infile files truncover;input name $96.;run;/*获取文件名宏变量和文件个数宏变量*/proc sql noprint;select scan(name,1,;)

2、,count(name) into: filenames separated by ;,:nfrom test;quit;/*循环读入Excel文件*/%macro infiles;%local i;%do i=1 %to &n;proc import datafile=&path.%scan(&filenames,&i,;) out=_a&i dbms=excel replace;run;%end;%mend;%infiles/*合并文件*/*这一步也可以放在上面的循环中处理*/%macro appends;%local i;%do i=2 %to &n;proc append base=_

3、a1 data=_a&i ; run;%end;data files;set _a1;run;%mend;%appends;/*删除文件*/proc datasets lib=work nolist ;delete _a: / memtype=data;quit;如果是遇到这样的表头呢？好吧，当然也是可以正确读入的。libname local d:test;%let in_file_path=d:test;%macro in_file(in_file_name,read_sheet_name,fstobs,out_file_name);proc import out=&out_file_nam

4、efile=&in_file_path&in_file_namedbms=excel replace;dbdsopts=firstobs=&fstobs;getnames=no;scantext=yes;usedate=yes;sheet=&read_sheet_name;scantime=yes;dbsaslabel=none;run;%mend;%in_file(-XXXX 花名册 - （3）副本.xlsx,在职名册,4,hr);/*如果不加dbsaslabel选项，打开数据集时会发现字段名称为A，B，C.打开缓慢，会导致SAS崩溃*/*建议使用office2013及以上*/读入后发现字段

5、名是这样的，没有任何意义，怎么批量改？/*批量修改变量名*/*应用场景：*/*读入带有中文列名的Excel表格时，会产生例如_col1,var1,F1等形式的字段名，这往往不是所需要的*/*一个一个rename比较麻烦，可以采取批量修改的方式，特别是读入表格较多的时候*/*注意：新的字段名需要与原字段名位置相对应，逻辑库和数据集名称需要大写*/*%rename(WORK,A,aa bb cc dd ee ff gg hh);*/*例如要将 a b c d e f g h 修改为 aa bb cc dd ee ff gg hh*/data a;input a b c d e f g h;stop

6、;cards;run;%macro rename(lib,dsn,newname);data &LIB.&dsn._copy;set &LIB.&dsn.;run;proc sql noprint;select nvar into :num_varsfrom dictionary.tableswhere libname=&LIB and memname=&DSN;select distinct(name) into :var1-:var%trim(%left(&num_vars)from dictionary.columnswhere libname=&LIB and memname=&DSN;quit;proc datasets library = &LIB;modify &DSN;rename%do i = 1 %to &num_vars.;&v