PROCEDURE qwerty IS

AppId OLE2.Obj_Type;
    q      INTEGER := 0;
    f_name VARCHAR2(200);
    
    TYPE col_2 IS TABLE OF sreda_pivot%ROWTYPE;
    v_th col_2 := col_2();
		e integer := 1;
		r integer := 1;
		v_t varchar2(100);
BEGIN
	
FOR cur_for_col_2 IN (select * from sreda_pivot order by cnter asc)
 LOOP
 		v_th.EXTEND;
 		v_th (v_th.LAST) := cur_for_col_2;
 		END LOOP;
	
	
	loop
	q := q + 1;
   f_name := ('C:\Users\operator\Desktop\itask\' || '00'|| q ||  '.xlsx'); 
    SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'BUSY');   
		Создать_Сеанс_Excel(null, false, AppId); 
		Создать_лист(AppId, 'Лист 1'); 
    Установить_ширину_столбца(AppId,   1, 71);
 
    					
   		FOR w IN v_th.first..v_th.last
 			LOOP
 			e := e + 1;  
			Записать_В_Ячейку_Текст(AppId, e,  1, v_th(w).names, 1,2);
			Записать_В_Ячейку_Текст(AppId, e,  2, v_th(w).val1, 1,2);
 			END LOOP;
    			e := 1;
    
    
   Показать_Сеанс_Excel(AppId, true);  
   SAVE (AppId, f_name);
	 Завершить_Сеанс_Excel(AppId);  
	 SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'DEFAULT');   
    exit when q >= 3;
	end loop;
		
END;

v_th(w).val1 

v_th(w).val2, v_th(w).val3

create or replace procedure costyl_po_razbivke_faila is

TYPE costyl_variable  IS   TABLE OF costyl_po_raxbivke_faila%rowtype;
  v_costyl costyl_variable := costyl_variable();

 v_file  UTL_FILE.FILE_TYPE;
 
 q integer := 0;
begin 
dbms_output.enable;

 FOR cur_for_costyl IN (SELECT * FROM costyl_po_raxbivke_faila)
 LOOP
 v_costyl.EXTEND;
 v_costyl (v_costyl.LAST) := cur_for_costyl;
 END LOOP;

for i in v_costyl.first..v_costyl.last
loop
q := q + 1;
v_file := UTL_FILE.FOPEN( location     => 'v_DIR', filename     =>  q || 'costyl.xml', open_mode    => 'w');

/*пилим башку хмэля*/
UTL_FILE.PUT_LINE(v_file, '<?xml version="1.0"?> 
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o="urn:schemas-microsoft-com:office:office"
 xmlns:x="urn:schemas-microsoft-com:office:excel"
 xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:html="http://www.w3.org/TR/REC-html40">
 <DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">
  <Author>operator</Author>
  <LastAuthor>operator</LastAuthor>
  <Created>2017-03-06T08:27:43Z</Created>
  <LastSaved>2017-03-06T08:28:41Z</LastSaved>
  <Version>14.00</Version>
 </DocumentProperties>
 <OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office">
  <AllowPNG/>
 </OfficeDocumentSettings>
 <ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">
  <WindowHeight>15390</WindowHeight>
  <WindowWidth>27795</WindowWidth>
  <WindowTopX>0</WindowTopX>
  <WindowTopY>45</WindowTopY>
  <ProtectStructure>False</ProtectStructure>
  <ProtectWindows>False</ProtectWindows>
 </ExcelWorkbook>
 .........

');
   
/*пилим тело хмэля*/   
  UTL_FILE.PUT_LINE(v_file, '<Row ss:AutoFitHeight="0">
    <Cell ss:StyleID="s62"><Data ss:Type="String">VERSION</Data></Cell>
    <Cell ss:StyleID="s62"><Data ss:Type="String">' || v_costyl(i).VERSION|| '</Data></Cell>
   </Row>');

UTL_FILE.PUT_LINE(v_file, '<Row ss:AutoFitHeight="0">
    <Cell ss:StyleID="s62"><Data ss:Type="String">ACTION</Data></Cell>
    <Cell ss:StyleID="s62"><Data ss:Type="String">' || v_costyl(i).ACTION|| '</Data></Cell>
   </Row>');

.....
/*полей овер 243*/
....

/*пилим жопу хмэля*/
UTL_FILE.PUT_LINE(v_file, ' </Table>
  <WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">
   <PageSetup>
    <Header x:Margin="0.3"/>
    <Footer x:Margin="0.3"/>
    <PageMargins x:Bottom="0.75" x:Left="0.7" x:Right="0.7" x:Top="0.75"/>
   </PageSetup>
   <Unsynced/>
   <Selected/>
   <ProtectObjects>False</ProtectObjects>
   <ProtectScenarios>False</ProtectScenarios>
  </WorksheetOptions>
 </Worksheet>
</Workbook>');
 
UTL_FILE.FCLOSE(v_file);
end loop;

Dbms_Output.Put_Line ('zaebok');


end;