sas批量导入一个excel文件中的sheet

2054  libname XLS  "D:\数据分析人员-考题\日线.xls";
NOTE: 已成功分配逻辑库引用名 XLS，如下所示:
       引擎:        EXCEL
       物理名: D:\数据分析人员-考题\日线.xls
2055  proc sql noprint;
2056  select count(*) as cnt into: cnt
2057  from sashelp.vtable
2058  where memtype="DATA" and libname="XLS" ;
2059  select memname into: memlist separated by "*"
2060  from sashelp.vtable
2061  where memtype="DATA" and libname="XLS" and substr(memname,10,7)^="BK2001_";
2062  quit;
NOTE: “PROCEDURE SQL”所用时间（总处理时间）:
      实际时间          0.01 秒
      CPU 时间          0.01 秒

2063  %put &memlist;
'600000$'*'600001$'*'600003$'
2064  %put &cnt;
6
2065
2066  %macro fileinput(file_name,file_names);
2067         data &file_name ;
2068                set xls.&file_names;
2069         run;
2070  %mend fileinput;
2071
2072  %macro p();
2073  %do i=1 %to &cnt;
2074  %put &cnt;
2075  %let memname=%qsubstr(%scan(&memlist,&i,*),1,9);
2076  %let memnames=%qsubstr(%scan(&memlist,&i,*),1,9)n;
2077  %put &memname;
2078  %put &memnames;
2079  %let leg=%eval(%length(&memname)-1);
2080  %let mem=%substr(&memname,1,&leg);
2081  %fileinput(&memname,&memnames);
2082  %end;
2083  %mend p;
2084  %p;
6
'600000$'
'600000$'n
ERROR: 文字中包含不匹配的引号。
ERROR: 宏 P 将终止执行。

在线等，兄弟考试题目

2054  libname XLS  "D:\数据分析人员-考题\日线.xls";
NOTE: 已成功分配逻辑库引用名 XLS，如下所示:
       引擎:        EXCEL
       物理名: D:\数据分析人员-考题\日线.xls
2055  proc sql noprint;
2056  select count(*) as cnt into: cnt
2057  from sashelp.vtable
2058  where memtype="DATA" and libname="XLS" ;
2059  select memname into: memlist separated by "*"
2060  from sashelp.vtable
2061  where memtype="DATA" and libname="XLS" and substr(memname,10,7)^="BK2001_";
2062  quit;
NOTE: “PROCEDURE SQL”所用时间（总处理时间）:
      实际时间          0.01 秒
      CPU 时间          0.01 秒


2063  %put &memlist;
'600000$'*'600001$'*'600003$'
2064  %put &cnt;
6
2065
2066  %macro fileinput(file_name,file_names);
2067         data &file_name ;
2068                set xls.&file_names;
2069         run;
2070  %mend fileinput;
2071
2072  %macro p();
2073  %do i=1 %to &cnt;
2074  %put &cnt;
2075  %let memname=%qsubstr(%scan(&memlist,&i,*),1,9);
2076  %let memnames=%qsubstr(%scan(&memlist,&i,*),1,9)n;
2077  %put &memname;
2078  %put &memnames;
2079  %let leg=%eval(%length(&memname)-1);
2080  %let mem=%substr(&memname,1,&leg);
2081  %fileinput(&memname,&memnames);
2082  %end;
2083  %mend p;
2084  %p;
6
'600000$'
'600000$'n
ERROR: 文字中包含不匹配的引号。
ERROR: 宏 P 将终止执行。

2054  libname XLS  "D:\数据分析人员-考题\日线.xls";
NOTE: 已成功分配逻辑库引用名 XLS，如下所示:
       引擎:        EXCEL
       物理名: D:\数据分析人员-考题\日线.xls
2055  proc sql noprint;
2056  select count(*) as cnt into: cnt
2057  from sashelp.vtable
2058  where memtype="DATA" and libname="XLS" ;
2059  select memname into: memlist separated by "*"
2060  from sashelp.vtable
2061  where memtype="DATA" and libname="XLS" and substr(memname,10,7)^="BK2001_";
2062  quit;
NOTE: “PROCEDURE SQL”所用时间（总处理时间）:
      实际时间          0.01 秒
      CPU 时间          0.01 秒


2063  %put &memlist;
'600000$'*'600001$'*'600003$'
2064  %put &cnt;
6
2065
2066  %macro fileinput(file_name,file_names);
2067         data &file_name ;
2068                set xls.&file_names;
2069         run;
2070  %mend fileinput;
2071
2072  %macro p();
2073  %do i=1 %to &cnt;
2074  %put &cnt;
2075  %let memname=%qsubstr(%scan(&memlist,&i,*),1,9);
2076  %let memnames=%qsubstr(%scan(&memlist,&i,*),1,9)n;
2077  %put &memname;
2078  %put &memnames;
2079  %let leg=%eval(%length(&memname)-1);
2080  %let mem=%substr(&memname,1,&leg);
2081  %fileinput(&memname,&memnames);
2082  %end;
2083  %mend p;
2084  %p;
6
'600000$'
'600000$'n
ERROR: 文字中包含不匹配的引号。
ERROR: 宏 P 将终止执行。

2079  %let leg=%eval(%length(&memname)-1);
2080  %let mem=%substr(&memname,1,&leg);
请问下有什么用

2066  %macro fileinput(file_name,file_names);
2067         data &file_name ;
2068                set xls.&file_names;
2069         run;
2070  %mend fileinput;

2076  %let memnames=%qsubstr(%scan(&memlist,&i,*),1,9)n;  是不是要新建数据的名字