有没有方法把一个文件夹中的EXCEL都读入SAS

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请问: 有没有方法把一个文件夹中的EXCEL都读入SAS?

我有很多EXCEL文件, 都不长, 有相同的列, 但有近百个?
有没有办法, 都读入SAS,
我现在是一一读入SAS, 再合并, 很慢. 想请教有没有好办法?


谢谢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏4 回帖

关键词：EXCEL xcel exce 文件夹 cel 文件夹 EXCEL

使用filename语句及pipe可以遍历到某文件夹下的所有xls文件名称并存储在sas数据集中，使用proc import然后合并这些文件就可以了，下是google提供的一小段代码，细节楼主可以参考filename的pipe devic type的用法。

filename terms pipe 'dir D:\data\*.xls/b';
data xlsfilename ;
   infile terms pad missover end=eof;
   input @1 filename $40.;
   call symput('file' || left(_n_),filename);
   if eof then call symput('nfiles',left(_n_));
run;

能行吗？？？

*指定数据文件所在的目录;
%let path=f:\tmp\;
*把所有xls放入tmp中

*指定输出数据集前缀;
%let OutPrefix=gan;

x "dir &path.*.xls /b > &path.fname.txt";

%macro importxls(filename,ith);
proc import datafile="&path.&filename" out=&OutPrefix.&ith dbms=excel replace;
run;

*以下三行语句是合并所有数据集，条件要求：数据集变量结构一致;
data all;
   set %if &ith ne 1 %then all; &OutPrefix.&ith;
run;
%mend;

data _null_;
infile "&path.fname.txt";
input filename & $100.;
*执行宏;
call execute('%importxls(' || trim(filename) || ',' || _n_ || ')');
run;

4#的方法很简洁，长见识了，学习中。。。把我的也补充完整

%let extfile = xls ;/*扩展名*/
%let dirpath= D:\data\ ; /*文件所在目录路径*/
filename dirpipe pipe 'dir &dirpath.\*..&extfile./b' ;

data _info ;
  length filepath $120. ;
  infile terms pad missover end=eof;
  input @1 filename $20.;
  filepath = "&dirpath" || trim(filename) ;
  filename = scan( filename , 1 ) ;
  call symput('filepath' || left(_n_),filepath);
  call symput('filename' || left(_n_),filename);
  if eof then call symput('nfiles',left(_n_));
run;

%macro importdbf ;
  %do i = 1 %to &nfiles ;
    proc import datafile = "&&filepath&i" out = %trim(&&filename&i) dbms = &extfile ;
    run ;
  %end ;

  proc sql noprint ;
    select filename into : datasets separated by ' ' from _info ;
  quit ;

  data all ;
    set &datasets ;
  run ;
%mend importdbf ;

%importdbf ;

太感谢各位高人了.

4# sushe1527

能看一下问题吗?

271  %let path=C:\test\;
272  %let OutPrefix=gan;
273  x "dir &path.*.xls /b > &path.fname.txt";
274
275  %macro importxls(filename,ith);
276  proc import datafile="&path.&filename" out=&OutPrefix.&ith dbms=excel replace;

277  run;
WARNING: The quoted string currently being processed has become more than 262 characters long.
         You may have unbalanced quotation marks.
278
279  data all;
280     set %if &ith ne 1 %then all; &OutPrefix.&ith;
281  run;
282  %mend;
WARNING: Apparent invocation of macro IMPORTXLS not resolved.
283
284  data _null_;
285  infile "&path.fname.txt";
286  input filename & $100.;
287  call execute('%importxls(' || trim(filename) || ',' || _n_ || ')');
288  run;

5# MyLoveSas

我也没能成功运行这程序, 加不加空格都一样?

400  %let extfile = xls ;
401  %let dirpath= C:\test\ ;
402  filename dirpipe pipe 'dir &dirpath.\*..&extfile./b';
403
404  data _info ;
405    length filepath $120. ;
402  filename dirpipe pipe 'dir &dirpath.\*..&extfile./b';
                                                        --
                                                        49
NOTE 49-169: The meaning of an identifier after a quoted string may change in a future SAS
             release.  Inserting white space between a quoted string and the succeeding
             identifier is recommended.

406    infile terms pad missover end=eof;
407    input @1 filename $20.;
408    filepath = "&dirpath" || trim(filename) ;
409    filename = scan( filename , 1 ) ;
410    call symput('filepath'
                            -
                            49
410!  || left(_n_),filepath);
NOTE 49-169: The meaning of an identifier after a quoted string may change in a future SAS
             release.  Inserting white space between a quoted string and the succeeding
             identifier is recommended.

411    call symput('filename' || left(_n_),filename);
412    if eof then call symput('nfiles',left(_n_));
413  run;
414
415  %macro importdbf ;
416    %do i = 1 %to &nfiles ;
417      proc import datafile = "&&filepath&i" out = %trim(&&filename&i) dbms = &extfile ;

418      run ;
419    %end ;
420
421    proc sql noprint ;
422      select filename into : datasets separated by ' ' from _info ;
423    quit ;
424
425    data all ;
426      set &datasets ;
427    run ;
428  %mend importdbf ;
429
430  %importdbf ;

xls名字不能太长的原因

9# sushe1527


我用a1.xls, 很奇怪