sas一次性导入一个excel文件 其中含有多张sheet

应该是要这种效果吧：

libname myxls odbc
        required="Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};
dbq=C:\multi_sheets.xlsx;ReadOnly=True";

proc sql noprint;
select memname into :tbl_names separated by '|' from sashelp.Vtable
where libname = 'MYXLS'
;quit;

%macro gentbls;
%let i=1;
%do %until (%scan(&tbl_names,&i.,|)=);
%let tbl = %scan(&tbl_names,&i.,|);
data _null_;
call symput('t',substr("&tbl.",1,length("&tbl.")-1));
run;
data &t.;set myxls."&tbl."n;run;
%let i = %eval(&i.+1);
%end;
%mend;

%gentbls;

libname myxls clear;

1. 先建立一个带sheet name的数据集，再使用macro调用

复制代码

1. data excel;
   
2.     input sheet $9.;
   
3.         datalines;
   
4. sheet1
   
5. biao2  
   
6. try3  
   
7. test4  
   
8. finalyeah
   
9. ;
   
10. run;
    
11. 
    
12. proc sql;
    
13.       select sheet into: sheet separated by ' '
    
14.           from excel;
    
15. quit;
    
16. 
    
17. %macro Import;
    
18.         %do i=1 %to %sysfunc(countw(&Sheet));
    
19.         %let sheetname=%scan(&sheet,&i,' ');
    
20. 
    
21.     PROC IMPORT OUT=WORK.&sheetname
    
22.        DATAFILE= "保存路径\multiple_xlsx.xlsx"
    
23.             DBMS=EXCEL REPLACE;
    
24.      RANGE="&sheetname.$";
    
25.      GETNAMES=YES;
    
26.      MIXED=NO;
    
27.      SCANTEXT=YES;
    
28.      USEDATE=YES;
    
29.      SCANTIME=YES;
    
30. RUN;
    
31.         %end;
    
32. %mend;
    
33. %Import;

复制代码

原理是利用将excel变成xml，读取其中所有表名然后按表名导入数据集。

1. %macro sheetnames(xlsxfile=);
   
2.         filename _WRKBOOK ZIP "&xlsxfile" member='xl/workbook.xml';
   
3.     filename _XMLFIL      "%sysfunc(pathname(WORK))\workbook.xml";
   
4. 
   
5.         data _null_;
   
6.         infile _WRKBOOK recfm=n ;
   
7.         file   _XMLFIL   recfm=n;
   
8.         input char $char1. @@;
   
9.         put char $char1. @@;
   
10.     run;
    
11. 
    
12.    
    
13.     filename  _SXLEMAP "%sysfunc(pathname(WORK))\xmlmap.map";
    
14.     libname   _XMLFIL xmlv2 automap=replace xmlmap=_SXLEMAP access=READONLY;
    
15. 
    
16.         data sheetnames;
    
17.        
    
18.             set _xmlfil.sheet;
    
19.         run;
    
20. 
    
21.         data _null_;
    
22.                 set sheetnames nobs=t;
    
23.                
    
24.                 retain i 1;
    
25. 
    
26.                 call symput("sheet_number",t);
    
27.        
    
28.                 %if i<=t %then %do;
    
29.                         put i=;
    
30.                        
    
31.        
    
32.                     call symput("SHEET"||left(i),sheet_name);
    
33.                
    
34.                         %end;
    
35.                 i=i+1;
    
36.         run;
    
37.        
    
38.                 %put &sheet_number;
    
39.                 %put &&sheet3;
    
40.                 %do k=1 %to &sheet_number;
    
41.                         proc import datafile="&xlsxfile"
    
42.                                 dbms='xlsx'
    
43.                                 out=&&sheet&k
    
44.                                 replace;
    
45.                                 GETNAMES=NO;
    
46. 
    
47.                                 sheet=&&SHEET&k;
    
48.                         run;
    
49.                 %end;
    
50.        
    
51. 
    
52.         %mend;

复制代码

Cecilia_Xi 发表于 2020-3-6 21:36

这个亲测可用了

luekemia 发表于 2019-7-8 17:10
应该是要这种效果吧：

libname myxls odbc

这个好用。