我想这个应该是最快的
上万个文件的话，MACRO循环做上万次，效率值得怀疑

7# soporaeternus 可是我不知怎么用。昨天刚学了点macro，就用macro做了，但是还有些问题。您要方便的话，能帮我做一下吗？就是文件多点儿，一点儿简单的数据处理。

4# 论坛数据分析 是三者合用还是单独用？

如果你的文件名很规则的话，那么就很容易了，比如file0001, file0002.....用macro就可以

10# ntsean 是这样规则的，但并不连续，中间有缺失，我用macro先导入再处理，结果对应缺失的表格产生了大量空白表，我在想怎样在处理时怎样不产生空白表呢

你可以用头几个observation看是不是missing，如果是missing，说明是空白表，那就不要输出

11# clearsun16

12# ntsean 这是我写的程序
dm 'log;clear;';
%macro procdata;
%DO I=1 %TO 10;

DATA _NULL_;

X=PUT(&I,Z6.);

CALL SYMPUT("X",X);

RUN;

%PUT &X;
PROC IMPORT OUT= WORK.SZ&X
            DATAFILE= "E:\data\&X..SZ.CSV"
            DBMS=CSV REPLACE;
     GETNAMES=YES;
     DATAROW=2;
RUN;
/*%let setid=%sysfunc(open(work.sz&X));
if  (&setid ^=0) then */
data chstkdt.sz&X(rename=(var1=stkcd var2=stknm var3=tdate var7=clsp));
set work.sz&X (keep= var1 var2 var3 var7);
cret=log(var7/lag(var7));
ret=dif(var7)/lag(var7);
run;
%END;
%mend procdata;
%procdata;

其中注释起来语句是我想判断set是否存在，如果存在就进行数据处理，如果不存在do nothing. 但是加上后就有错误了，我也不知道怎么改。
谢谢你热心的回复

4# 论坛数据分析 你好！我在12楼贴了程序，你有时间能帮我看一下吗？急～

你用fileexist 函数判断是不是文件存在。 我给你加了2行，把注释部分去掉了，你试试看

dm 'log;clear;';
%macro procdata;
%DO I=1 %TO 10;

DATA _NULL_;

X=PUT(&I,Z6.);

CALL SYMPUT("X",X);

RUN;

%PUT &X;

%if %sysfunc(fileexist("E:\data\&X..SZ.CSV")) %then %do;

PROC IMPORT OUT= WORK.SZ&X
             DATAFILE= "E:\data\&X..SZ.CSV"
             DBMS=CSV REPLACE;
      GETNAMES=YES;
      DATAROW=2;
RUN;

%end;
%END;
%mend procdata;
%procdata;

13# clearsun16

15# ntsean 我刚试过可以了 谢谢！你真是高手啊

http://blog.sina.com.cn/s/blog_6a90ae320100nb91.html
http://blog.sina.com.cn/s/blog_6a90ae320100namg.html
这两个链接里的东西对楼主的问题应该很有帮助

http://www.pinggu.org/bbs/viewth ... p;extra=&page=1
以前类似的问题，感觉差不多
风险就是chouxiangdaishu后面说的，中间数据的保存不是很好
楼主权衡一下吧

循环加macro