Hi Pawan,
some one may come with better solution.. Here is the sample Code
/*First sql creating data set name in to macro from work library, if you have in diffrent location change the LIBname*/
proc sql;
select memname into : Ds separated by ' '
from dictionary.columns
where libname='WORK';
quit;
%put &Ds;
%let sqlobs=&sqlobs;
%macro export;
%do i=1 %to &sqlobs;
%let dsn=%scan(&DS,&i);
proc export data=&dsn outfile="\excelpath\sample.xls"
dbms=excel replace;
sheet="&dsn";
run;
%end;
%mend;
%export
Thanks
Sam