REad an excel cell using oracle forms

Hi,
[Quoted]   I have the follwoing code to read an excel cell from oracle forms.But   i am getting the error 'ora-305522' during the excution of the line

worksheets := ole2.invoke_OBJ(workbooks, 'Worksheets');

But i tried with
worksheets := ole2.GET_OBJ_PROPERTY(workbooks, 'Worksheets');

but of no use...still getting the same error...any one there to help me out??? Is there any way to modify the code???

Here is my code:

DECLARE

• Declare handles to OLE objects application ole2.obj_type; workbooks ole2.obj_type; workbook ole2.obj_type; worksheet ole2.obj_type; worksheets ole2.obj_type; cell ole2.obj_type;
• Declare handles to OLE argument lists args ole2.list_type; check_file text_io.file_type; no_file exception; PRAGMA EXCEPTION_INIT (no_file, -302000); cell_value varchar2(2000);

BEGIN

• Check the file can be found, if not exception no_file will be raised check_file := TEXT_IO.FOPEN('C:\test.xls','R'); TEXT_IO.FCLOSE(check_file);

application:= ole2.create_obj('Excel.Application');
workbooks := ole2.GET_OBJ_PROPERTY(application, 'Workbooks');
worksheets := ole2.invoke_OBJ(workbooks, 'Worksheets');

• Open the required workbook args:= ole2.create_arglist; ole2.add_arg(args, 'C:\test.xls'); workbook := ole2.GET_OBJ_PROPERTY (workbooks, 'Open', args); ole2.destroy_arglist(args);
• Open worksheet Sheet1 of that Workbook args:= ole2.create_arglist; ole2.add_arg(args, 'Sheet1'); worksheet := ole2.GET_OBJ_PROPERTY (worksheets, 'Worksheets', args); ole2.destroy_arglist(args);
• Get value of cell A1 of worksheet Sheet1 args:= ole2.create_arglist; ole2.add_arg(args, 1); ole2.add_arg(args, 1); cell:= ole2.GET_OBJ_PROPERTY (worksheet, 'Cells', args); ole2.destroy_arglist(args); cell_value :=ole2.get_char_property(cell, 'Value'); message(cell_value);

ole2.invoke(application,'Quit');

[Quoted]
• Release the OLE2 object handles ole2.release_obj(application); ole2.release_obj(workbooks); ole2.release_obj(workbook); ole2.release_obj(worksheets); ole2.release_obj(cell);

EXCEPTION
WHEN no_file THEN
MESSAGE('File not found.');

END;

--
Posted via http://dbforums.com