PROCEDURE ToExcel IS
  MyApp ole2.obj_type; 
  MyBook ole2.obj_type; 

  MyWorkbooksCollection ole2.obj_type; 
  myWorksheets ole2.obj_type; 
  mySheet ole2.obj_type; 
  myRange ole2.obj_type; 

  args OLE2.LIST_TYPE;

  var OLEVAR;
  id pls_integer;  
BEGIN
  MyApp:=OLE2.Create_Obj('Excel.Application'); 
  OLE2.Set_Property( MyApp,'VISIBLE', 1 ); 
  
  MyBook:=OLE2.Invoke_Obj( MyWorkbooksCollection,'Add' ); 
  myWorksheets:=OLE2.GET_OBJ_PROPERTY( MyBook,'Worksheets'); 
  
  args := OLE2.CREATE_ARGLIST; 
  OLE2.ADD_ARG( args, 1 ); 
  MySheet := OLE2.GET_OBJ_PROPERTY( myWorksheets, 'Item', args); 
  OLE2.DESTROY_ARGLIST( args);  
  
  args := OLE2.CREATE_ARGLIST; -- create argument list 
  OLE2.ADD_ARG( args, 1 ); 
  OLE2.ADD_ARG( args, 1 );
  myRange:=OLE2.GET_OBJ_PROPERTY( mySheet, 'Cells', args );
  OLE2.DESTROY_ARGLIST( args);
  
  var:=TO_VARIANT( 'Test' );
  id:=GET_OLE_MEMBERID( myRange, 'Value' );
  SET_OLE( myRange, id, var );
  DESTROY_VARIANT( var );
  OLE2.RELEASE_OBJ( myRange ); 
  
  OLE2.RELEASE_OBJ(mySheet); 
  OLE2.RELEASE_OBJ(myWorksheets); 
  OLE2.RELEASE_OBJ(MyBook); 
  OLE2.RELEASE_OBJ(MyWorkbooksCollection);
  OLE2.RELEASE_OBJ(MyApp); 
END;

    ActiveWorkbook.Sheets("Stat").Activate
    ActiveSheet.Columns("L:L").NumberFormat = "General"