不同文件夹下同名EXCEL文件批量导入SAS

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问如何将不同文件夹下同名EXCEL文件批量导入SAS.我有2500个以股票代码命名的文件夹,每个文件夹中都有一个相同的EXCEL表格.请问各位高人,如何通过SAS程序批量导入.我用了宏循环,但由于股票代码之间存在断号,所以会出现前一个文件被重复执行很多次.重复的次数,刚好是这两个股票代码之间的间隔,例如前两个数据分别为600100和600250,则600100 会被重复执行150次(600250-600100).请问如何解决这个问题,急死了,请各位帮帮忙啊,感激涕陵.程序如下：

%macro dr;

%do i=000001 %to 601898;

proc importdatafile="C:\Documents andSettings\Lenovo\桌面\2008\&i\关联方资金占用"

out=book.ocpuy

dbms=excelreplace;

textsize=250;

run;

databook.oc;set book.ocpuy book.oc ;

run;

%end;

%mend;

%dr;

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：同名EXCEL 不同文件夹 EXCEL xcel exce Documents Lenovo 股票代码 文件夹 关联方

呵呵，这个肯定不行

*指定数据文件所在的目录;
%let path=f:\tmp\;
*指定输出数据集前缀;
%let OutPrefix=****;
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;

上面好像是要求在同一个文件夹下，没试过分开的，要想取得一个文件夹对应一个xls文件这样的格式，可以在关联方资金占用文件夹下按下键盘的CRTL+F，在搜索里输入*.xls，在结果里用鼠标框选你要整合到一个文件夹里使用上面程序，复制或者剪切，你看着办。

1. %let path=D:\Try\ReadExcel\dir1\;
   
2. %let path1=D:\Try\ReadExcel\;
   
3. 
   
4. x "dir &path.* /b > &path1.dirname.txt";
   
5. 
   
6. %macro importxls(dirname);
   
7. proc import datafile="&path.\&dirname\data1.XLS" out=ocpuy
   
8. dbms=excel replace;
   
9. sheet='sheet1';
   
10. getnames=yes;
    
11. run;
    
12. 
    
13. PROC APPEND DATA=ocpuy BASE=oc FORCE;
    
14. RUN;
    
15. %mend;
    
16. 
    
17. data _null_;
    
18. infile "&path1.dirname.txt";
    
19. input filename & $100.;
    
20. call execute('%importxls(' || trim(filename)|| ')');
    
21. run;

复制代码

将所有的文件目录拷到D:\Try\ReadExcel\dir1\下，在上一级生成一个dirname.txt文件放所以的目录名称。在data step里面调用宏。测试了一下，好像可以

将文件目录拷贝到新建目录D:\Try\ReadExcel\dir1\下，然后在上一级目录里生成文件dirname.txt存放文件目录的名称。再用data step调用宏。测试了一下，好像可以

应该挺不错的