sas读取excel多个sheet的问题

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

下面是我在网上盗的一道程序，能实现从excel中读取多个sheet的问题，原程序有错误，我改动了一下，但是输出的数据只有sheetname，其他的啥也没有，我想输出的是每个sheet存储的数据。
请各位英雄好汉 帮个忙吧！我用的是sas9.4版本，64位的。在d盘sas文件里存了一个cz.xlsx。
%let dir=d:\sas;
%macro ReadXls (name);
libname lb excel "&dir.\&name";
proc sql noprint;

create table sheetname as
select tranwrd(memname,"''","'") as sheetname
from sashelp.vstabvw
where libname= "lb";

select count(DISTINCT(sheetname)) into :number
from sheetname;
select DISTINCT(sheetname) into :sheet1- :sheet%left(&number)
from sheetname;
quit;

libname lb clear;
%do i=1 %to &number;
        proc import datafile= "&dir.\&name"
        out=sht&i replace;
        dbms=excel replace;
        sheet= &&sheet&i;
        getnames=yes;
        mixed=yes;
        run;

        data a&i;
        set lb.sht&i;
        run;
        proc print data=a&i;run;

        proc append base=master data=sht&i force;
        run;

%end ;
%mend ;
%ReadXls (cz.xlsx);

调试的数据

输出数据

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

关键词：sheet EXCEL exce xcel cel

程序有点小毛病，已帮你修改。另外，正好需要这段代码，感谢提供~

1. %let dir=d:\SAS;
   
2. %macro ReadXls (name);
   
3. libname lb excel "&dir.\&name";
   
4. proc sql noprint;
   
5. 
   
6. create table sheetname as
   
7. select tranwrd(memname,"''","'") as sheetname
   
8. from sashelp.vstabvw
   
9. where upcase(libname)= "LB";
   
10. 
    
11. select count(DISTINCT(sheetname)) into :number
    
12. from sheetname;
    
13. select DISTINCT(sheetname) into :sheet1- :sheet%left(&number)
    
14. from sheetname;
    
15. quit;
    
16. 
    
17. libname lb clear;
    
18. %do i=1 %to &number;
    
19.         proc import datafile= "&dir.\&name"
    
20.         out=sht&i replace;
    
21.         dbms=excel replace;
    
22.         sheet= &&sheet&i;
    
23.         getnames=yes;
    
24.         mixed=yes;
    
25.         run;
    
26. 
    
27.         data a&i;
    
28.         set lb.sht&i;
    
29.         run;
    
30.         proc print data=a&i;run;
    
31. 
    
32.         proc append base=master data=sht&i force;
    
33.         run;
    
34. 
    
35. %end ;
    
36. %mend ;
    
37. %ReadXls (cz.xlsx);

复制代码

这里的程序需要知道表名人后再导入数据，建立的以Excel类型的数据库后，就可以直接读取数据集了。

libname lb excel "&dir.\&name";

proc sql noprint;

create table sheetname as
select tranwrd(memname,"''","'") as sheetname
from sashelp.vstabvw
where upcase(libname)= "LB";
quit;
data master;
set lb.'&sheetname'n;
run;

或是
data aaaa;
set lb.'发卡$'n;
run;