SAS DDE Export To Excel

data d1; 
  input group score;
  datalines;
1 7.960000038
1 7.590000153
1 7.849999905
1 8
1 7.75
2 8.050000191
2 8.069999695
2 7.78000021
2 7.619999886
2 8.170000076
3 8.090000153
3 8.229999542
3 8
3 8.090000153
3 7.880000114
;
run;
/*
ods listing close;
ods tagsets.excelxp file="C:\MaoTemp\outfile.xls";
ods tagsets.excelxp options(sheet_name='editcheck2' autofit_height = 'yes' autofilter ='none');

proc print data=d1 noobs;
 ;
run;

ods tagsets.excelxp close;
ods listing;
libname ecs clear;
libname cl clear;
*/






options noxwait noxsync;
X CALL "C:\Program Files\Microsoft Office\Office12\excel.exe";
filename EXCEL dde "EXCEL|SYSTEM";
filename EXPORT DDE 'EXCEL|Tracking form Shanghai!r16c2:r100c3' notab ;
data _null_ ;
  x=sleep(1);
run;

data _null_;
 file EXCEL ;
 put'[open("c:\MaoTemp\Seminar Result Tracking Template.xlsx")]';
run;
data _null_ ;
  x=sleep(1);
run;
data _null_;
 set d1;
 tab = '09'x;
 file EXPORT;
 if _n_ = 1 then put "group" tab "score" ;
 put group tab score ;
run;
data _null_ ;
  x=sleep(10);
run;
data _null_;
 file EXCEL;
 put '[save()]';
 put'[Close()]';
 put'[Quit()]';
run;
data _null_ ;
  x=sleep(10);
run;
filename EXCEL clear;
filename EXPORT clear;