数据文件，附件。

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 ;

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

这段程序是将数据集输出到.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);