*含有多个工作簿的EXCEL文件转换成多个SAS数据集;

libname rawexcel "C:\Users\Administrator\Desktop\TEST1.XLSX" access=readonly; *请修改：原始EXCEL文件路径以及文件名和后缀;

LIBNAME BARN "C:\Users\Administrator\Desktop\SASDATASET"; *请修改：存放SAS数据集的位置;

%MACRO EXCELTOSAS();

PROC SQL NOPRINT;

SELECT COUNT(DISTINCT(MEMNAME)) INTO :NUM

FROM SASHELP.VTABLE

WHERE LIBNAME="RAWEXCEL";

SELECT DISTINCT(MEMNAME) INTO :S1-:S%TRIM(%LEFT(&NUM.))

FROM SASHELP.VTABLE

WHERE LIBNAME="RAWEXCEL";

SELECT DISTINCT(COMPRESS(MEMNAME,"',$")) INTO :V1-:V%TRIM(%LEFT(&NUM.))

FROM SASHELP.VTABLE

WHERE LIBNAME="RAWEXCEL";

QUIT;

%DO I=1 %TO &NUM.;

%put &&v&i;

%put &&s&i;

PROC IMPORT DATAFILE="C:\Users\Administrator\Desktop\TEST1.XLSX"

DBMS=XLSX

OUT=BARN.&&v&i

REPLACE;

SHEET="&&v&I.";

GETNAMES=YES;

QUIT;

%END;

%MEND;

%EXCELTOSAS();

值得讲一讲的是SASHELP.VTABLE这个数据集，在运行了libname rawexcel...这个语句后，SAS会创建一个名叫rawexcel的逻辑库，然后SASHELP.VTABLE这个数据集就会新增一条该库的观测，储存了这个库的库名、库里头数据集的名称、数据集的个数等等。所以可以利用VTABLE里头的信息写一个循环自动导出多个sheets的内容到不同的SAS数据集；