Directly convert into Xls Sheet

Question

Hello Friends,
i want to send the data of a table to xls sheet through form builder.is it possible?i am using forms 6i.i know hoe to convert it into .txt file through Text_io package but do not know how to do that to xls sheet.
Regards,
Sourav

Answer 1

hello
i still getting difficulties,,
here is the code i am using
DECLARE
APPID PLS_INTEGER;
CONVID PLS_INTEGER;
x number:=1;
dbmserrcode Varchar2(100);
dbmserrtext Varchar2(100);
BEGIN
     break;
APPID := DDE.APP_BEGIN('D:\Program Files\Microsoft Office\Office10\excel.exe',dde.app_mode_normal);
CONVID := DDE.INITIATE('EXCEL','c:\system.xls');
DDE.EXECUTE(CONVID,'[Save.as("c:\test1.xls",1)]',10000);
DDE.TERMINATE(CONVID);
CONVID := DDE.INITIATE('EXCEL','c:\test1.xls');
go_block('afco6alc');
first_record;
loop
go_item('afco6alc.co6number');
for y in 1..3 loop
DDE.POKE(CONVID,'R'||x||'C'||y,ltrim(rtrim(:system.cursor_value)),DDE.CF_TEXT,1000);
next_item;
end loop;
x:=x+1;
next_record;
end loop;
DDE.EXECUTE(CONVID,'[Save()]',10000);
DDE.TERMINATE(CONVID);
DDE.APP_END(APPID);
exception
when others then
/*DDE.EXECUTE(CONVID,'[Save()]',10000);
DDE.TERMINATE(CONVID);
DDE.APP_END(APPID);
null;*/
dbmserrcode:=Dbms_Error_Code;
dbmserrtext:=Dbms_Error_Text;
message(dbmserrcode||' '||dbmserrtext);
Message(dbmserrcode||' '||dbmserrtext);
end;