-- Variables
  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;   
  args          CLIENT_OLE2.LIST_TYPE;
  obj_hnd       CLIENT_OLE2.OBJ_TYPE; 
  tab1          client_OLE2.OBJ_TYPE;
  tab2          client_OLE2.OBJ_TYPE;
  tab3          client_OLE2.OBJ_TYPE;

  -- Open Excel
  application := CLIENT_OLE2.CREATE_OBJ('Excel.Application');
  workbooks := CLIENT_OLE2.GET_OBJ_PROPERTY(application,'Workbooks');
  args := CLIENT_OLE2.CREATE_ARGLIST;
  CLIENT_OLE2.ADD_ARG(args,'c:\file.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');

  -- Give you handle on different tab in your Excel file
  tab1 := get_object_handle(1);
  tab2 := get_object_handle(2);
  tab3 := get_object_handle(3);

FUNCTION get_object_handle(tpage NUMBER) RETURN OLE2.OBJ_TYPE IS
    worksheet2  CLIENT_OLE2.OBJ_TYPE;

BEGIN
    args := client_OLE2.CREATE_ARGLIST;
    client_OLE2.ADD_ARG(args, tpage);
    worksheet2 := CLIENT_OLE2.GET_OBJ_PROPERTY(workbook,'Worksheets',args);
    client_OLE2.DESTROY_ARGLIST(args);
    client_ole2.INVOKE(worksheet2,'Activate');
    client_OLE2.RELEASE_OBJ(worksheet2);

    return CLIENT_OLE2.GET_OBJ_PROPERTY(application,'activesheet');
END;

  -- Invoke Save As
  args:=client_OLE2.CREATE_ARGLIST;
  client_ole2.ADD_ARG(args,'c:\test2.xls');
  CLIENT_OLE2.INVOKE(workbook, 'SaveAs',args);

  -- Exit Excel and release object
   client_OLE2.INVOKE(workbook, 'Close');
   client_OLE2.INVOKE(application, 'Quit');

   client_OLE2.RELEASE_OBJ(worksheet);
   client_OLE2.RELEASE_OBJ(worksheets);
   client_ole2.release_obj(tab1);
   client_ole2.release_obj(tab2);
   client_ole2.release_obj(tab3);
   client_OLE2.RELEASE_OBJ(workbook);
   client_OLE2.RELEASE_OBJ(workbooks);
   client_OLE2.RELEASE_OBJ(application);