SAS：服务器摆烂把数据集存到本地Excel

2023-10-27_17-40-39.png

%macro m_exp2all(_lib=, _dsin=);
    %if not %length(&_dsin) %then
        %do;

            proc sql noprint nowarnrecurs;
                select distinct memname into: _dsin separated by ' ' from 
                    dictionary.columns where libname="%upcase(&_lib)";
            quit;

        %end;
    %let _dsnum=%sysfunc(countw(&_dsin, %str( )));
    libname exfile xlsx "/location/%upcase(&protocol)_%lowcase(&report)_%lowcase(&_lib)_all_&sysdate..xlsx";

    %do iii=1 %to &_dsnum;
        %let _tmpds=%Scan(&_dsin, &iii, %str( ));

        data exfile.&_tmpds.;
            %if %length(&_lib) %then
                %do;
                    set &_lib..&_tmpds.;
                %end;
            %else
                %do;
                    set &_tmpds.;
                %end;
        run;

    %end;
    libname exfile clear;
%mend m_exp2all;

 %m_exp2all(_lib=data_s, _dsin=);