---- code ------ as follows ------

DECLARE 
    -- Declare handles to OLE objects  
    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; 
    check_file  client_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 := client_text_io.Fopen('C:\test.XLS', 'W'); 
    client_text_io.Fclose(check_file); 
    Message('hellllllllllooo'); 

    -- *********************************** 
    application := client_ole2.Create_obj('Excel.Application'); 

    --CLIENT_OLE2.set_property(application,'Visible','true');  
    workbooks := client_ole2.Get_obj_property(application, 'Workbooks'); 
    args := client_ole2.create_arglist; 
    client_ole2.Add_arg(args, 'c:\test.xls'); 

    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'); 
    client_ole2.Set_property(worksheet, 'Value', 'Sheet1'); 

    -- *********************************** 
    -- PASS VALUE INTO Excel CELL (ROW 371, COL 3) 
    args := client_ole2.create_arglist; 
    client_ole2.Add_arg(args, 371); 
    client_ole2.Add_arg(args, 3); 

    cell := client_ole2.Get_obj_property(worksheet, 'Cells', args); 
    client_ole2.Destroy_arglist(args); 
    client_ole2.Set_property(cell, 'Value', '97FI01'); 

    -- Get value of cell (372,3) of worksheet Sheet1  
    args := client_ole2.create_arglist; 
    client_ole2.Add_arg(args, 372); 
    client_ole2.Add_arg(args, 3); 

    cell := client_ole2.Get_obj_property(worksheet, 'Cells', args); 
    client_ole2.Destroy_arglist(args); 
    cell_value := client_ole2.Get_char_property(cell, 'Value'); 

    Message(cell_value); 
    -- save document as test.xls 
    client_ole2.Invoke(worksheet, 'Save'); 
    client_ole2.Invoke(workbook, 'Save'); 
    client_ole2.Invoke(workbook, 'CLOSE'); 

    -- 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); 
    -- ASSIGN RETURN VALUE FROM EXCEL TO Text Field 
    :block3.param_desc := cell_value; 
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;