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.OBJ_TYPE;
cell_value varchar2(100);

eod boolean:=false;


j integer:=1;

BEGIN

-- The following set up communication with the excel spreadsheet

application := Client_OLE2.create_obj('Excel.Application');

Client_OLE2.set_property(application,'Visible','false');

workbooks := Client_OLE2.Get_Obj_Property(application, 'Workbooks');

args := Client_OLE2.CREATE_ARGLIST;
Client_OLE2.add_arg(args,'d:\planets.xls'); --modify this for diff location

workbook := Client_OLE2.GET_OBJ_PROPERTY(workbooks,'Open',args);
Client_OLE2.destroy_arglist(args);
worksheets := Client_OLE2.GET_OBJ_PROPERTY(workbook, 'Worksheets');


worksheet := Client_OLE2.GET_OBJ_PROPERTY(application,'activesheet');


--Go to the first record
go_block('planets');
first_record;

loop
If :system.record_status <> 'NEW' then
create_record;
end if;

exit when eod;

for k in 1..3 loop --3 fields per record

args:= Client_OLE2.create_arglist;
Client_OLE2.add_arg(args, j);
Client_OLE2.add_arg(args, k);
cell:= Client_OLE2.get_obj_property(worksheet, 'Cells', args);
Client_OLE2.destroy_arglist(args);
cell_value :=Client_OLE2.get_char_property(cell, 'Value');


if upper(cell_value) = 'EOD' then --End of Data marker in Spread sheet.
eod:=true; --set the Boolean for end of data.

Message('End of Data');
exit;
end if;

--Fill the fields with the cell values
copy(cell_value,name_in('system.cursor_item'));
next_item; --get next field ready to receive


end loop; --for
j:=j+1;

end loop;--main loop

-- Release the Client_OLE2 object handles
Client_OLE2.release_obj(cell);
Client_OLE2.release_obj(worksheet);
Client_OLE2.release_obj(worksheets);
Client_OLE2.release_obj(workbook);
Client_OLE2.release_obj(workbooks);
Client_OLE2.invoke(application,'Quit');
Client_OLE2.release_obj(application);


END;