SAS批量重命名指定文件夹XLSX文件报错求助（附代码）

开发者阿泽

2026-6-16

SAS文件重命名代码错误修正

核心错误分析

你的代码里rename函数的参数传递错误：你把变量名old_name和new_name用双引号括起来了，这会让SAS尝试去重命名字面名为"old_name"和"new_name"的文件，而非变量中存储的实际文件路径，这是导致重命名失败的直接原因。

另外还有两个潜在问题：

没有过滤文件类型，会遍历文件夹内所有条目（包括子目录），可能对非XLSX文件执行无效操作
未处理大小写问题，比如文件名是.XLSX时会被忽略

修正后的代码

%let folder = /report/Sep2024;
filename mydir "&folder.";

data _null_;
length old_name $300 new_name $300;
did = dopen('mydir'); 

if did > 0 then do;
    do i = 1 to dnum(did);
        file_name = dread(did, i);
        
        /* 只处理XLSX文件，忽略子目录和其他类型文件 */
        if lowcase(scan(file_name, -1, '.')) = 'xlsx' then do;
            old_name = "&folder./" || file_name; 
            new_name = "";

            if find(file_name, '214') > 0 then new_name = "&folder./A.xlsx"; 
            else if find(file_name, '217') > 0 then new_name = "&folder./B.xlsx"; 
            else if find(file_name, '445') > 0 then new_name = "&folder./C.xlsx"; 
            else if find(file_name, '311') > 0 then new_name = "&folder./D.xlsx"; 

            if new_name ne "" then do;
                /* 修复：直接使用变量名，不要加引号 */
                rc = rename(old_name, new_name, 'file');
         
                if rc = 0 then put "Successfully renamed: " old_name " to " new_name;
                else put "Error renaming: " old_name " to " new_name " (RC=" rc ")";
            end;
        end;
    end;
    rc = dclose(did); 
end;
run;