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    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);
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, 1);
  client_ole2.add_arg (args, 1);
  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
--:Block2.RETURN_VAL := 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;