求助：通过SAS数据集内的文件名批量导入Excel电子表格

两种可行方案 #

方案一：利用call execute动态生成导入代码 #

这种方式直接从数据集驱动生成proc import语句，无需显式宏循环，代码简洁高效：

/* 定义文件存储路径的宏变量 */
%let data_path = /sasapp/prod/data;

/* 遍历Filenames数据集，逐行生成导入代码 */
data _null_;
    set Filenames;
    /* 生成合法的输出表名：替换文件名中的空格为下划线，去掉.xlsx后缀并添加前缀 */
    length output_table $32;
    output_table = cats('tbl_', tranwrd(scan(memname, 1, '.'), ' ', '_'));
    
    /* 构造proc import语句并执行 */
    call execute(catt(
        'proc import out=', output_table, ' ',
        'datafile="', data_path, '/', memname, '" ',
        'dbms=xlsx replace; ',
        'getnames=yes; ',
        'run;'
    ));
run;

方案二：宏循环+宏变量列表 #

如果需要更灵活的流程控制，可先将文件名存入宏变量列表，再通过循环批量处理：

%let data_path = /sasapp/prod/data;

/* 第一步：将Filenames中的文件名提取到宏变量列表 */
proc sql noprint;
    select memname into :file_list separated by '|'
    from Filenames;
    select count(*) into :total_files
    from Filenames;
quit;

/* 第二步：定义批量导入宏 */
%macro batch_import;
    %do i = 1 %to &total_files;
        /* 取出当前循环对应的文件名 */
        %let current_file = %scan(&file_list, &i, |);
        /* 生成输出表名 */
        %let output_table = tbl_%sysfunc(tranwrd(%sysfunc(scan(&current_file,1,.)), %str( ), _));
        
        proc import out=&output_table
            datafile="&data_path/&current_file"
            dbms=xlsx replace;
            getnames=yes;
        run;
    %end;
%mend;

/* 执行宏完成批量导入 */
%batch_import;

重要注意事项 #

• 修正示例代码错误：原代码中的dbmx=xlsx是笔误，正确参数为dbms=xlsx
• 输出表名通过tranwrd和scan处理，避免文件名中的空格、特殊字符导致SAS表名无效
• 路径与文件名拼接时使用双引号，确保包含空格的文件名能被正确识别
• 两种方案均支持数据集动态更新，只要Filenames数据集是最新状态，重新执行代码即可导入新增文件

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