PROCEDURE ole IS
  MyApplication CLIENT_OLE2.OBJ_TYPE;
  workbooks CLIENT_OLE2.OBJ_TYPE;
  workbook CLIENT_OLE2.OBJ_TYPE;
  worksheets CLIENT_OLE2.OBJ_TYPE;
  worksheet CLIENT_OLE2.OBJ_TYPE;
  Mydocument CLIENT_OLE2.OBJ_TYPE; 
  args CLIENT_OLE2.LIST_TYPE;
  cell CLIENT_OLE2.OBJ_TYPE;
  col CLIENT_OLE2.OBJ_TYPE;
  ncol CLIENT_OLE2.OBJ_TYPE;
  rw CLIENT_OLE2.OBJ_TYPE;
  selection CLIENT_OLE2.OBJ_TYPE;  
BEGIN
  MyApplication:=CLIENT_OLE2.CREATE_OBJ('Excel.application'); 
  CLIENT_OLE2.SET_PROPERTY(MyApplication, 'Visible',  1 );

   -- get a handle on Documents collection
  workbookS:=CLIENT_OLE2.GET_OBJ_PROPERTY(Myapplication,'Workbooks');
  
  -- get a handle on Documents collection
  args:=CLIENT_OLE2.CREATE_ARGLIST;
  CLIENT_OLE2.ADD_ARG(args, 'C:\1.xls');
  workbook :=CLIENT_OLE2.INVOKE_OBJ(workbooks,'Open',args);
  CLIENT_OLE2.DESTROY_ARGLIST(args); 
  
  -- Return object handle to the Worksheets collection for the Workbook
  worksheets:=CLIENT_OLE2.GET_OBJ_PROPERTY(Workbook, 'Worksheets');
  
  -- Return current лист
  worksheet:=CLIENT_OLE2.GET_OBJ_PROPERTY(Worksheets, 'Worksheet');
  args:=CLIENT_OLE2.CREATE_ARGLIST; 
  CLIENT_OLE2.ADD_ARG(args,  1 );
  worksheet:=CLIENT_OLE2.GET_OBJ_PROPERTY(worksheets,'Item',args);
  CLIENT_OLE2.DESTROY_ARGLIST(args);

   args := client_OLE2.CREATE_ARGLIST;
   client_OLE2.ADD_ARG(args, 'I:J'); -- Устанавливаем диапазон столбцов
   col:= client_OLE2.GET_OBJ_PROPERTY(worksheet, 'Columns', args);
   client_OLE2.DESTROY_ARGLIST(args);

END;