SAS批量讀入Excel+批量修改變量名

1、精選優(yōu)質(zhì)文檔-傾情為你奉上收集了N多Excel表格，如何將他們匯總在一塊兒呢？如果會(huì)VBA，這或許也不是一件難事，事實(shí)上有些Excel插件就可以解決這個(gè)問題。這里看看如何用SAS來解決/*指定需要合并的文件的路徑*/%let path=D:test;/*注意dir后面與路徑之間要有空格*/filename files pipe dir &path /b;/*讀入文件名列表*/data test;infile files truncover;input name $96.;run;/*獲取文件名宏變量和文件個(gè)數(shù)宏變量*/proc sql noprint;select scan(name,1,;)

2、,count(name) into: filenames separated by ;,:nfrom test;quit;/*循環(huán)讀入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/*合并文件*/*這一步也可以放在上面的循環(huán)中處理*/%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;如果是遇到這樣的表頭呢？好吧，當(dāng)然也是可以正確讀入的。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選項(xiàng)，打開數(shù)據(jù)集時(shí)會(huì)發(fā)現(xiàn)字段名稱為A，B，C.打開緩慢，會(huì)導(dǎo)致SAS崩潰*/*建議使用office2013及以上*/讀入后發(fā)現(xiàn)字段

5、名是這樣的，沒有任何意義，怎么批量改？/*批量修改變量名*/*應(yīng)用場景：*/*讀入帶有中文列名的Excel表格時(shí)，會(huì)產(chǎn)生例如_col1,var1,F1等形式的字段名，這往往不是所需要的*/*一個(gè)一個(gè)rename比較麻煩，可以采取批量修改的方式，特別是讀入表格較多的時(shí)候*/*注意：新的字段名需要與原字段名位置相對應(yīng)，邏輯庫和數(shù)據(jù)集名稱需要大寫*/*%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