Как сохранить результат курсора в Excel

procedure to_excel is begin
 
ExcelAppl OLE2.OBJ_TYPE;
WorkBooks OLE2.OBJ_TYPE;
WorkBook  OLE2.OBJ_TYPE;
WorkSheet OLE2.OBJ_TYPE; 
arglist OLE2.LIST_TYPE;
Cell OLE2.OBJ_TYPE := 0;
rTrue NUMBER := -1;
nRow number :=1;
nCol number :=1; 
args OLE2.LIST_TYPE;
address1 varchar2(100);
address2 varchar2(100);
cursor n1 is select l.name from table l;
BEGIN
  ExcelAppl := OLE2.CREATE_OBJ('Excel.Application');
  WorkBooks := OLE2.GET_OBJ_PROPERTY(ExcelAppl, 'Workbooks');
  WorkBook :=  OLE2.INVOKE_OBJ(Workbooks, 'Add');
  arglist := OLE2.CREATE_ARGLIST;
  OLE2.ADD_ARG(arglist, 1);
  WorkSheet := OLE2.GET_OBJ_PROPERTY(WorkBook, 'Worksheets', arglist);
  OLE2.DESTROY_ARGLIST(arglist);
  OLE2.Set_Property(ExcelAppl, 'Visible', 1);
  
  for n in n1 loop
    nCol :=1;
    arglist := OLE2.CREATE_ARGLIST;
  OLE2.ADD_ARG(arglist, nRow); 
  OLE2.ADD_ARG(arglist, nCol);
  Cell := OLE2.GET_OBJ_PROPERTY(WorkSheet, 'Cells', arglist);
  OLE2.DESTROY_ARGLIST(arglist); 
  OLE2.SET_PROPERTY(Cell, 'Value', n.name);
  nRow  :=nRow+1;
  end loop; 
  OLE2.DESTROY_ARGLIST(arglist);
  OLE2.RELEASE_OBJ(Cell);
  OLE2.RELEASE_OBJ(WorkSheet);
  OLE2.RELEASE_OBJ(WorkBook);
  OLE2.RELEASE_OBJ(WorkBooks);
  OLE2.RELEASE_OBJ(ExcelAppl);
  
end;