下面是我在网上盗的一道程序，能实现从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);