如何用SAS判断Excel文件是否含多工作表及批量导入多工作表

1. 判断哪个Excel文件包含多工作表 #

通过SAS的LIBNAME关联Excel文件，结合字典表DICTIONARY.TABLES统计每个文件的工作表数量，即可识别多工作表文件。以下是完整代码：

步骤1：获取目标路径下的Excel文件列表 #

/* 替换为你的Excel文件所在路径 */
%let path = /your/excel/file/directory;

/* 读取路径下所有xlsx文件 */
filename dir "&path";
data excel_files;
  length filename $256;
  do while(dread(dir, filename) = 0);
    if scan(filename, -1, '.') = 'xlsx' then output;
  end;
run;

/* 将文件名存入宏变量列表 */
proc sql noprint;
  select filename into :file_list separated by ' ' from excel_files;
quit;
filename dir clear;

步骤2：循环判断每个文件的工作表数量 #

%macro check_multi_sheet;
  %local i file tmp_lib sheet_count;
  %do i = 1 %to %sysfunc(countw(&file_list));
    %let file = %scan(&file_list, &i);
    %let tmp_lib = TMPLIB&i; /* 生成唯一临时库名 */

    /* 关联Excel文件到临时库 */
    libname &tmp_lib xlsx "&path/&file";

    /* 查询该库下的工作表总数 */
    proc sql noprint;
      select count(*) into :sheet_count from dictionary.tables
      where libname = upcase("&tmp_lib");
    quit;

    /* 输出判断结果 */
    %if &sheet_count > 1 %then %do;
      %put 【多工作表文件】&file，共包含&sheet_count个工作表;
    %end;
    %else %do;
      %put 【单工作表文件】&file，仅包含1个工作表;
    %end;

    /* 清理临时库 */
    libname &tmp_lib clear;
  %end;
%mend check_multi_sheet;
%check_multi_sheet;

2. 使用SAS宏批量导入所有工作表 #

通过嵌套宏实现：先遍历所有Excel文件，再遍历每个文件下的所有工作表，最终将所有工作表导入为SAS数据集。以下是代码：

子宏：导入单个Excel文件的所有工作表 #

%macro import_single_file(file_fullpath);
  %local xlib sheet_names i sheet ds_name;
  %let xlib = XLIB_TMP;

  /* 关联Excel文件 */
  libname &xlib xlsx "&file_fullpath";

  /* 获取当前文件的所有工作表名 */
  proc sql noprint;
    select memname into :sheet_names separated by ' ' from dictionary.tables
    where libname = upcase("&xlib");
  quit;

  /* 循环导入每个工作表 */
  %do i = 1 %to %sysfunc(countw(&sheet_names));
    %let sheet = %scan(&sheet_names, &i);
    /* 去除工作表名后的$符号（部分Excel版本会自动添加） */
    %let ds_name = %sysfunc(tranwrd(&sheet, '$', ''));
    
    /* 导入工作表到WORK库，也可替换为PROC IMPORT自定义导入规则 */
    data work.&ds_name;
      set &xlib..&sheet;
    run;
    %put 已导入工作表：&sheet → 数据集work.&ds_name;
  %end;

  /* 清理临时库 */
  libname &xlib clear;
%mend import_single_file;

主宏：批量处理所有Excel文件 #

%macro import_all_sheets;
  %local i file;
  %do i = 1 %to %sysfunc(countw(&file_list));
    %let file = %scan(&file_list, &i);
    %put === 开始处理文件：&file ===;
    %import_single_file(&path/&file);
  %end;
%mend import_all_sheets;
%import_all_sheets;

注意事项 #

• 若需要自定义导入格式（如指定变量类型、跳过表头行），可将data步替换为PROC IMPORT，例如：

  proc import datafile="&file_fullpath"
    out=work.&ds_name
    dbms=xlsx replace;
    sheet="&sheet";
    getnames=yes; /* 第一行作为变量名 */
  run;
  

• 确保SAS已安装PC Files Server或对应Excel驱动，否则无法关联Excel文件。

内容的提问来源于stack exchange，提问作者Barry Allen