create or replace PROCEDURE apex_print_stat 
   AS
      v_head   VARCHAR2 ( 32767 );
      v_app_id           NUMBER           := v ('APP_ID');
      v_app_user         VARCHAR2 ( 200 )   := v ('APP_USER');
      v_session_id       VARCHAR2 ( 50 )    := v ('APP_SESSION');
      v_err              VARCHAR2 ( 32767 );
      v_rep_header_err   VARCHAR2 ( 32767 );
      v_rep_values_err   VARCHAR2 ( 32767 );
      v_file_name        VARCHAR2 ( 300 );
      val                VARCHAR2 ( 300 );
      cou                VARCHAR2 ( 300 );      
      v_exception        EXCEPTION;      
   BEGIN
--Пишем если влезет шаблон XML в v_head 

      v_head :='<?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">
 .......................................
   <Row>
    <Cell ss:StyleID="s32"><Data ss:Type="Number">IV1</Data></Cell>
    <Cell ss:StyleID="s32"><Data ss:Type="Number">IV2</Data></Cell>
    <Cell ss:StyleID="s32"><Data ss:Type="Number">IV3</Data></Cell>
    <Cell ss:StyleID="s32"><Data ss:Type="Number">IV4</Data></Cell>
    <Cell ss:StyleID="s32"><Data ss:Type="Number">IV5</Data></Cell>
    <Cell ss:StyleID="s32"><Data ss:Type="Number">IV6</Data></Cell>
    <Cell ss:StyleID="s33"><Data ss:Type="Number">IV7</Data></Cell>
   </Row>
   <Row>
    <Cell ss:StyleID="s32"><Data ss:Type="Number">LAB1</Data></Cell>
    <Cell ss:StyleID="s32"><Data ss:Type="Number">LAB2</Data></Cell>
 .......................................

   <ProtectObjects>False</ProtectObjects>
   <ProtectScenarios>False</ProtectScenarios>
  </WorksheetOptions>
 </Worksheet>
</Workbook>
';
--v_head:=replace(v_head,'"String"','"Number"');
--Заполняем таблицу
cou:='NK16150816111866462';
select count(*) counts into val from OBD_DOC where country=cou;
v_head:=replace(v_head,'ND1',val);
select count(*) counts into val from OBD_UD where country=cou;
v_head:=replace(v_head,'UD1',val);
 .......................................

      v_file_name := 'stat.xls';
      OWA_UTIL.mime_header ('application/octet', FALSE);
      HTP.p ('Content-Disposition: attachment; filename="' || v_file_name
             || '"'
            );
      OWA_UTIL.http_header_close;
      --apex_print_header ();
      HTP.prn (v_head);
      HTMLDB_APPLICATION.g_unrecoverable_error := TRUE;
   END ;