Reading data from multiple excel sheets

Question

hi all
i have to read the data from excel file's sheet1 and sheet3. how can i do this using forms6i
thanks.

Answer 1

Dear Rehman,
Use This Code ,it is very useful to read the data from excel file's sheet1 and sheet2 and so on.here i written the code for sheet1 and sheet2 only.if u need sheet3 .. and extra make a code based on sheet1 or sheet2.
Regards
Gopinath M
DECLARE
--Declare handles to OLE objects
application ole2.obj_type;
workbooks ole2.obj_type;
workbook ole2.obj_type;
worksheet 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('L:\Individual Person Folders\Gopi\test1.XLS','R');
TEXT_IO.FCLOSE(Check_file);
application:= ole2.create_obj('Excel.Application');
workbooks := ole2.get_obj_property(application, 'Workbooks');
--Open the required workbook
args:= ole2.create_arglist;
ole2.add_arg(args, 'L:\Individual Person Folders\Gopi\test1.XLS');
workbook := ole2.invoke_obj(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(workbook, '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);          
args:= ole2.create_arglist;
ole2.add_arg(args, 1);
ole2.add_arg(args, 2);
cell:= ole2.get_obj_property(worksheet, 'Cells', args);
ole2.destroy_arglist(args);
cell_value :=ole2.get_char_property(cell, 'Value');
message(cell_value);
args:= ole2.create_arglist;
ole2.add_arg(args, 1);
ole2.add_arg(args, 3);
cell:= ole2.get_obj_property(worksheet, 'Cells', args);
ole2.destroy_arglist(args);
cell_value :=ole2.get_char_property(cell, 'Value');
message(cell_value);MESSAGE(' ');
args:= ole2.create_arglist;
ole2.add_arg(args, 'Sheet2');
worksheet := ole2.get_obj_property(workbook, '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);
     args:= ole2.create_arglist;
     ole2.add_arg(args, 1);
     ole2.add_arg(args, 2);
     cell:= ole2.get_obj_property(worksheet, 'Cells', args);
     ole2.destroy_arglist(args);
     cell_value :=ole2.get_char_property(cell, 'Value');
     message(cell_value);
     args:= ole2.create_arglist;
     ole2.add_arg(args, 1);
     ole2.add_arg(args, 3);
     cell:= ole2.get_obj_property(worksheet, 'Cells', args);
     ole2.destroy_arglist(args);
     cell_value :=ole2.get_char_property(cell, 'Value');
     message(cell_value);
     MESSAGE(' ');
ole2.invoke(application,'Quit');
--Release the OLE2 object handles
ole2.release_obj(cell);     
ole2.release_obj(worksheet);
ole2.release_obj(workbook);
ole2.release_obj(workbooks);
ole2.release_obj(application);
EXCEPTION
WHEN no_file THEN
MESSAGE('file not found.');
WHEN OTHERS THEN
MESSAGE(sqlerrm);
PAUSE;
FOR i IN 1 .. tool_err.nerrors LOOP
MESSAGE(tool_err.message);
PAUSE;
tool_err.pop;
END LOOP;
END;