Question

我正在使用this代码将文件夹中的所有xlsx文件导入：

%*Creates a list of all files in the DIR directory with the specified extension (EXT);
%macro list_files(dir,ext);
    %local filrf rc did memcnt name i;
    %let rc=%sysfunc(filename(filrf,&dir));
    %let did=%sysfunc(dopen(&filrf));

    %if &did eq 0 %then
        %do;
            %put Directory &dir cannot be open or does not exist;

            %return;
        %end;

    %do i = 1 %to %sysfunc(dnum(&did));
        %let name=%qsysfunc(dread(&did,&i));

        %if %qupcase(%qscan(&name,-1,.)) = %upcase(&ext) %then
            %do;
                %put &dir\&name;
                %let file_name =  %qscan(&name,1,.);
                %put &file_name;

                data _tmp;
                    length dir $512 name $100;
                    dir=symget("dir");
                    name=symget("name");
                    path = catx('\',dir,name);
                    the_name = substr(name,1,find(name,'.')-1);
                run;

                proc append base=list data=_tmp force;
                run;

                quit;

                proc sql;
                    drop table _tmp;
                quit;

            %end;
        %else %if %qscan(&name,2,.) = %then
            %do;
                %list_files(&dir\&name,&ext)
            %end;
    %end;

    %let rc=%sysfunc(dclose(&did));
    %let rc=%sysfunc(filename(filrf));
%mend list_files;

%*Macro to import a single file, using the path, filename and an output dataset name must be specified;
%macro import_file(path, file_name, dataset_name );

    proc import 
        datafile="&path.\&file_name."
        dbms=xlsx
        out=&dataset_name replace;
    run;

%mend;

*Create the list of files, in this case all XLSX files;
%list_files(c:\_localData\temp, xlsx);

%*Call macro once for each entry in the list table created from the %list_files() macro;
data _null_;
    set list;
    string = catt('%import_file(', dir, ', ',  name,', ', catt('test', put(_n_, z2.)), ');');
    call execute (string);
run;

我另外使用以下代码来尝试了解所生成的错误：options mprint mlogic;

MLOGIC(IMPORT_FILE):  Parameter PATH has value C:\Users\baidw002\Documents\1 

      BCH-LJAF\Real data transfer (BCH to UAB)\PreAnalysis\data\DLW cohorts\Cohort 1\1 

MLOGIC(IMPORT_FILE):  Parameter FILE_NAME has value BSL 

MLOGIC(IMPORT_FILE):  Parameter DATASET_NAME has value FB-1208-7 BSL.xlsx 

ERROR: More positional parameters found than defined. 

MLOGIC(IMPORT_FILE):  Ending execution. 

MLOGIC(IMPORT_FILE):  Beginning execution. 

MLOGIC(IMPORT_FILE):  Parameter PATH has value C:\Users\baidw002\Documents\1 

      BCH-LJAF\Real data transfer (BCH to UAB)\PreAnalysis\data\DLW cohorts\Cohort 1\1 

MLOGIC(IMPORT_FILE):  Parameter FILE_NAME has value BSL 

MLOGIC(IMPORT_FILE):  Parameter DATASET_NAME has value FB-1331-6 BSL.xlsx 

ERROR: More positional parameters found than defined.

问题：如何解决此错误？

Answer 1

我能够使用一些测试文件成功运行它。这可能是文件名或目录中某些字符的问题。为防止这种情况，请通过将导入文件设置为一个名为%import_file的参数（该参数需要带引号的字符串）来修改file，然后更改您的call execute()字符串以支持它。

*Macro to import a single file, using the path, filename and an output dataset name must be specified;
%macro import_file(file, dataset_name);

    proc import 
        datafile=&file.
        dbms=xlsx
        out=&dataset_name replace;
    run;

%mend;

*Create the list of files, in this case all XLSX files;
%list_files(c:\_localData\temp, xlsx);

*Call macro once for each entry in the list table created from the %list_files() macro;
data _null_;
    set list;

    filename = quote(cats(dir, '\', name));
    out      = catt('test', put(_n_, z2.));

    string   = catt('%import_file(', filename, ',', out, ');');

    call execute (string);
run;

导入文件夹中的所有xlsx文件

1 个答案: