Data from a block to excel

Question

Hi all !
I have searched through the forum to save data into excel.
But I'm in form 10 that run on the web. I want to save the data in a block into an excel file.
I want to do this in a button with a when-button-pressed trigger.
Can anyone help me???
Thanks all,
Fabrizio

Answer 1

PROCEDURE FROM_TO_EXCEL IS
i_reporttitle VARCHAR2(500) := 'My excel';
dno number(1);
dn varchar2(14);
dl varchar2(13);
r number := 5;
c number := 1;
i_orientation VARCHAR2(1000) := '1';
i number :=1;
/* definiton for commonly used variables and constants and exceptions */
ExcelID ole2.obj_type;
ExcelWorkBooksID ole2.obj_type;
ExcelWorkBookID ole2.obj_type;
ExcelWorkSheetsID ole2.obj_type;
ExcelWorkSheetID ole2.obj_type;
ExcelCellID ole2.obj_type;
ExcelFontID ole2.obj_type;
ExcelPageSetupID ole2.obj_type;
ExcelArgs ole2.list_type;
EXCELCellBACKGroundColor ole2.obj_type;
BEGIN
ExcelID := ole2.create_obj('Excel.Application');
ExcelWorkBooksID := ole2.get_obj_property(ExcelID, 'Workbooks');
ExcelWorkBookID := ole2.invoke_obj(ExcelWorkBooksID, 'Add');
ExcelWorkSheetsID := ole2.get_obj_property(ExcelWorkBookID, 'Worksheets');
ExcelWorkSheetID := ole2.invoke_obj(ExcelWorkSheetsID, 'Add');
ExcelPageSetupID := ole2.get_obj_property(ExcelWorkSheetID, 'PageSetup');
ole2.set_property(ExcelPageSetupID, 'Orientation',i_orientation);
ole2.release_obj(ExcelPageSetupID);
GO_BLOCK('BLOCK_NAME');
--=========================================================================================
ExcelArgs := ole2.create_arglist;
ole2.add_arg(ExcelArgs,i);
ole2.add_arg(ExcelArgs,c);
ExcelCellId := ole2.get_obj_property(ExcelWorkSheetId,'cells',ExcelArgs);
ole2.destroy_arglist(ExcelArgs);
ole2.set_property(ExcelCellId, 'Value', 'FIRST_FIELD_NAME' );
ExcelFontId := ole2.get_obj_property(ExcelCellId, 'Font');
ole2.set_property(ExcelFontId, 'Bold', 'True');
ole2.set_property(ExcelFontId, 'Size', '10');
ole2.set_property(EXCELCellBACKGroundColor, 'gray12','TRUE');
ole2.release_obj(ExcelFontId);
ole2.release_obj(ExcelCellId);
ExcelArgs := ole2.create_arglist;
ole2.add_arg(ExcelArgs,i);
ole2.add_arg(ExcelArgs,c);
ExcelCellId := ole2.get_obj_property(ExcelWorkSheetId,'cells',ExcelArgs);
ole2.destroy_arglist(ExcelArgs);
ole2.set_property(ExcelCellId, 'Value', 'SECOND_FIELD_NAME' );
ExcelFontId := ole2.get_obj_property(ExcelCellId, 'Font');
ole2.set_property(ExcelFontId, 'Bold', 'True');
ole2.set_property(ExcelFontId, 'Size', '10');
ole2.set_property(EXCELCellBACKGroundColor, 'gray12','TRUE');
ole2.release_obj(ExcelFontId);
ole2.release_obj(ExcelCellId);
/*AND CONTINUE THIS STEP TO ALL YOUR FIELD*/
END;