SAS批量导入同一文件下的excel表

请教诸位，我想用SAS批量导入同一文件下的excel表，如何编写程序？

李真LZ 发表于 2017-5-29 14:27
提示是这样子的：
Spreadsheet isn't from Excel V5 or later.  Please open it in Excel and Save as V ...

execl文件的版本太老了！

1. filename indata pipe 'dir "c:\documents and settings\administrator\桌面\test\*.xls" /b/s';
   
2. data files;
   
3. infile indata truncover;
   
4. input char $200. ;
   
5. char1=scan(scan(char,-1,'\'),1,'.');
   
6. run;
   
7. 
   
8. /*宏变量n，表示*.xls文件个数，用于宏程序循环判断*/
   
9. proc sql noprint;
   
10. select count(char) into : n  from files;
    
11. run;
    
12. quit;
    
13. 
    
14. %macro import_xls_files;
    
15. %do i=1 %to &n;
    
16. /************************************/
    
17. /*把每个具体文件名的路径存入宏变量char*/
    
18. data _null_;
    
19. set files;
    
20. length char2 $20.;
    
21. if _n_=&i then do;
    
22. call symput('char',char);
    
23. call symput('char1',char1);
    
24. end;
    
25. run;
    
26. %put &char2;
    
27. /************************************/
    
28. proc import out=test_&char1
    
29.             datafile= "&char"
    
30.             dbms=excel4 replace;
    
31. /*     getnames=yes;*/
    
32. run;
    
33. /************************************/
    
34. %end;
    
35. %mend import_xls_files;
    
36. %import_xls_files

复制代码

可以把粗体的部分换成你自己的路径试一下这个：

filename mydir pipe 'dir "D:\" /b';
data content;
infile mydir lrecl=300 truncover;
input @1 content $200.;
if upcase(scan(content,-1,'.'))='XLS';
run;
filename mydir clear;

data _null_;
set content;
call execute("proc import datafile='D:/"||strip(content)||"' out=d"||scan(strip(content),1,'.')||" replace;run;");
run;

wwang111 发表于 2017-5-28 17:03
可以把粗体的部分换成你自己的路径试一下这个：

filename mydir pipe 'dir "D:\" /b';

刚运行了一下，提示如下：
ERROR: 连接: 外部表不是预期的格式。
ERROR: LIBNAME 语句出错。

1. filename indata pipe 'dir "d:\test\*.xls" /b/s';
   
2. data files;
   
3. infile indata truncover;
   
4. input char $200. ;
   
5. char1=scan(scan(char,-1,'\'),1,'.');
   
6. run;
   
7. 
   
8. /*宏变量n，表示*.xls文件个数，用于宏程序循环判断*/
   
9. proc sql noprint;
   
10. select count(char) into : n  from files;
    
11. run;
    
12. quit;
    
13. 
    
14. %macro import_xls_files;
    
15. %do i=1 %to &n;
    
16. /************************************/
    
17. /*把每个具体文件名的路径存入宏变量char*/
    
18. data _null_;
    
19. set files;
    
20. if _n_=&i then do;
    
21. call symput('char',char);
    
22. call symput('char1',char1);
    
23. end;
    
24. run;
    
25. /************************************/
    
26. proc import out=test_&char1
    
27. datafile="&char" dbms=xlsx replace;
    
28. sheet='sheet1';
    
29. getnames=no;
    
30. run;
    
31. /************************************/
    
32. %end;
    
33. %mend import_xls_files;
    
34. %import_xls_files

复制代码

李真LZ 发表于 2017-5-28 17:50
刚运行了一下，提示如下：
ERROR: 连接: 外部表不是预期的格式。
ERROR: LIBNAME 语句出错。

把第二步改成这样试一下，有可能你的sas版本是支持xlsx格式

data _null_;
set content;
call execute("proc import datafile='D:/"||strip(content)||"' out=d"||scan(strip(content),1,'.')||" dbms=xls replace;run;");
run;

l1i2n3i4n5g 发表于 2017-5-28 18:18

你好~
运行结果提示：ERROR: 物理文件“F:\数据分析\M\1.xls.xlsx”不存在。
我的每一个sheet的名字和excel表的名字一致，且每一个Excel都只有一张sheet。
应该怎么修改呢?

wwang111 发表于 2017-5-28 18:19
把第二步改成这样试一下，有可能你的sas版本是支持xlsx格式

data _null_;

你好~
92  + proc import datafile='F:\数据分析\M/9.xls' out=d9 dbms=xls replace;
92  +                                                                    run;

Spreadsheet isn't from Excel V5 or later.  Please open it in Excel and Save as V5 or later
Requested Input File Is Invalid
ERROR: 导入失败。详细信息，请参阅“SAS 日志”。
NOTE: 由于出错，SAS 系统停止处理该步。
该怎么修改呢？

李真LZ 发表于 2017-5-29 08:44
你好~
运行结果提示：ERROR: 物理文件“F:\数据分析\M\1.xls.xlsx”不存在。
我的每一个sheet的名字和e ...

相应部分改一下试试看

1. proc import out=test_&char1
   
2. datafile="&char" dbms=xls replace;
   
3. sheet="&char1";
   
4. getnames=no;
   
5. run;

复制代码

l1i2n3i4n5g 发表于 2017-5-29 12:39
相应部分改一下试试看

提示是这样子的：
Spreadsheet isn't from Excel V5 or later.  Please open it in Excel and Save as V5 or later
Requested Input File Is Invalid
ERROR: 导入失败。详细信息，请参阅“SAS 日志”。
NOTE: 由于出错，SAS 系统停止处理该步。

我也试过其他的程序，别人可以导数据入进去，不知道为什么我就是无法导入