求助~~~球高手进

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

本人菜鸟，求教大侠，如何将100万的数据按照5000均分生成200个excel表格~~谢谢

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：excel表格 Excel表 EXCEL exce xcel excel表格 如何

数据文件，附件。

Here is a simple example that has all functions you need for your problem.



libname S EXCEL 'c:\temp\splited.xlsx';

data tmp;
   do i=1 to 1000;
      x=ranuni(123);
          output;
        end;
run;

%macro dsn(numdsn,numobs, excelfile='c:\temp\splited.xlsx', dsnin=tmp);

   libname s EXCEL &excelfile;
   proc datasets lib=S kill; run;  quit;

   data
   %do i=1 %to &numdsn;
       s.sheet&i
   %end;
   ;
   set tmp;
   %do i=1 %to &numdsn;
       %if &i=1 %then if _n_<=&i*&numobs then output s.sheet&i%str(;);
           %else %if &i<=%eval(&numdsn-1) %then
               else if _n_<=&i*&numobs then output s.sheet&i%str(;);
           %else   else output s.sheet&i%str(;);
   %end;
   run;
%mend;
options mprint;
%dsn(10,100, excelfile='c:\temp\splited.xlsx', dsnin=tmp);

libname S ;

一个观测不要求随机的例子，不过只适合于观测不多的情况。

1. %macro getdata(have);
   
2. %do i=1 %to 100 %by 10;
   
3.         data want_&i;
   
4.                 set &have(firstobs=&i obs=%eval(&i+2));
   
5.         run;
   
6.         proc export data=want_&i outfile='d:want_&i..xls';
   
7.         run;
   
8. %end;
   
9. %mend getdata;
   
10. %getdata(indsn)

复制代码

这段程序是将数据集输出到.xml 文件， 用excel打开后可存成excel文件。

不过将一百万条数据存在一个workbook的２００个表格中，可能不太好用.

可以选择不同的观测值输出到不同的workbook中。

data OneMillion;
   if _n_ = 1 then do;
      do i = 1 to 1000000;
        a = round(ranuni(1234)*100, 0.01);
        output;
      end;
   end;
run;
%macro mymacro(startobs=, endobs=, byvalue=, dsn=, path=, ExcelBook=);
ods _all_ close;
ods tagsets.ExcelXP path=&path
                               File="&ExcelBook..xml"
                               style=Printer;
    %do i = &startobs %to &endobs %by &byvalue;
  %let j = %eval(&i + &byvalue-1);
data data&i;
      set &dsn (firstobs=&i obs=&j);
run;
    proc print data=data&i noobs; run; quit;
%end;
ods tagsets.ExcelXP close;
%mend mymacro;
%mymacro(startobs=1, endobs=100, byvalue=25, dsn=OneMillion, path="F:\MySAS\SASData", excelBook=MyexcelB);