利用SAS批量导入一个文件夹内的多个excel表

陈琼博士 · 发布于 2012年3月5日 · 最后更新于 2025年4月6日

%let dirs=C:\aa; 
%macro get_filenames(location);
filename _dir_ "%bquote(&location.)";
data filenames(keep=memname tmp);
  handle=dopen( '_dir_' );
  if handle > 0 then do;
   count=dnum(handle);
    do i=1 to count;
     tmp=cats("tmp",i);
     tmp=Tranwrd(tmp," ","");
     memname=dread(handle,i);
    
     output filenames;
    end;
  end;
  rc=dclose(handle);
run;
filename _dir_ clear;
%mend;
%get_filenames(&dirs);  

%macro readExl(name=,tmp=);
PROC IMPORT OUT=&tmp

DATAFILE= "&dirs\&name"
DBMS=EXCEL REPLACE;
SHEET="Sheet1$";
GETNAMES=YES;
MIXED=NO;
SCANTEXT=YES;
USEDATE=YES;
SCANTIME=YES;
RUN;
%mend;

data _null_;
   set Filenames;
   call execute('%readExl(name= '||memname||',tmp='||tmp||')');
run;

proc datasets library=work nolist;
    delete target;
run;

%macro mergeData(tmp=);
    proc append base=target data=&tmp force;
    run;
%mend;

data _null_;
   set Filenames;
   call execute('%mergeData(tmp='||tmp||')');   
run;

%macro deleteTmp(tmp=);
    proc datasets library=work nolist;
       delete &tmp;
    run;
%mend;

data _null_;
   set Filenames;
   call execute('%deleteTmp(tmp='||tmp||')');    
run;

陈 琼

博士 副主任医师

他从事肿瘤登记与人群流行病学研究，编写肿瘤登记年报，并开发和维护个人网站。他撰写博文，分享数据分析方法、可视化技巧和自动化报告解决方案，同时学习 R 语言，开发 R 包，不断探索高效的数据处理与展示方式。 🚀