Generate Excel Output

Question

Hi All!
I would very much appreciate if you could send me the code for generating Excel output.
Thanks,
Waqas
[email protected]

Answer 1

Hi,
Here's the code for generating the excel output, you can write this in button press of form which calls the excel report.It automatically opens a new excel sheet , and then it executes the SQL query, after that each rows will get filled with the values.
First of all you need to makeall the queries in the report in to a single query.
declare
     application CLIENT_OLE2.obj_type;
     workbooks CLIENT_OLE2.obj_type;
     workbook CLIENT_OLE2.obj_type;
     worksheets CLIENT_OLE2.obj_type;
     worksheet CLIENT_OLE2.obj_type;
     cell CLIENT_OLE2.obj_type;
     args CLIENT_OLE2.list_type;
     rowcount integer;
     i integer;
     cursor c2 is select 1 from dual;
     cursor c1 is /* write your select query that fetches the required values */
begin
application := CLIENT_OLE2.create_obj('Excel.Application');
CLIENT_OLE2.set_property(application,'Visible','True');
workbooks := CLIENT_OLE2.get_obj_property (application,'Workbooks');
workbook := CLIENT_OLE2.invoke_obj(workbooks,'Add');
worksheets := CLIENT_OLE2.get_obj_property (workbook,'Worksheets');
worksheet := CLIENT_OLE2.invoke_obj(worksheets,'Add');
rowcount := 0;i:=1;
for rec1 in c2 loop
rowcount := rowcount + 1;
-- For the headings
args := CLIENT_OLE2.create_arglist;
CLIENT_OLE2.add_arg(args,rowcount);
CLIENT_OLE2.add_arg(args,1);
cell := CLIENT_OLE2.get_obj_property(worksheet,'Cells',args);
CLIENT_OLE2.destroy_arglist(args);
CLIENT_OLE2.set_property(cell,'Value','Column 1 Heading');
CLIENT_OLE2.release_obj(cell);
args := CLIENT_OLE2.create_arglist;
CLIENT_OLE2.add_arg(args,rowcount);
CLIENT_OLE2.add_arg(args,2);
cell := CLIENT_OLE2.get_obj_property(worksheet,'Cells',args);
CLIENT_OLE2.destroy_arglist(args);
CLIENT_OLE2.set_property(cell,'Value','Column2 Heading');
CLIENT_OLE2.release_obj(cell);
end loop;
for rec1 in c1 loop
rowcount := rowcount + 1;
args := CLIENT_OLE2.create_arglist;
CLIENT_OLE2.add_arg(args,rowcount);
CLIENT_OLE2.add_arg(args,1);
cell := CLIENT_OLE2.get_obj_property(worksheet,'Cells',args);
CLIENT_OLE2.destroy_arglist(args);
CLIENT_OLE2.set_property(cell,'Value',rec1.field1);
CLIENT_OLE2.release_obj(cell);
/*null value may create problems,then use the if condition as follows*/
args := CLIENT_OLE2.create_arglist;
CLIENT_OLE2.add_arg(args,rowcount);
CLIENT_OLE2.add_arg(args,14);
cell := CLIENT_OLE2.get_obj_property(worksheet,'Cells',args);
CLIENT_OLE2.destroy_arglist(args);
IF rec1.field2 IS NOT NULL THEN
CLIENT_OLE2.set_property(cell,'Value',rec1.field2);
ELSE
     CLIENT_OLE2.set_property(cell,'Value',' ');
END IF;
CLIENT_OLE2.release_obj(cell);
end loop;
CLIENT_OLE2.release_obj(worksheet);
CLIENT_OLE2.release_obj(worksheets);
CLIENT_OLE2.release_obj(workbook);
CLIENT_OLE2.release_obj(workbooks);
CLIENT_OLE2.release_obj(application);
EXCEPTION WHEN OTHERS THEN
     MESSAGE(SQLCODE||' - '||SQLERRM); MESSAGE(' ');
end;
Hope this helps .
Regards,
Nycy