create or replace PROCEDURE ORA_to_EXCEL(
    v_date    VARCHAR2,
    v_date2   VARCHAR2,
    v_iotdnum VARCHAR2,
    v_put     VARCHAR2)
AS
  TYPE oldfg IS TABLE of NUMBER INDEX BY PLS_INTEGER;
  rr oldfg;
BEGIN
 rr(1) :=  replace(replace (substr(v_iotdnum, 1, instr(v_iotdnum, ',')), ' '), ',');
 rr(2) := replace(replace (substr(v_iotdnum, 6, instr(v_iotdnum, ',')),  ' '), ',');
 rr(3) := replace(replace (substr(v_iotdnum, 12, instr(v_iotdnum, ',')),  ' '), ',');
 rr(4) := replace(replace (substr(v_iotdnum, 18, instr(v_iotdnum, ',')), ' '), ',');
declare 
 CURSOR t_data
  IS
    SELECT DISTINCT p.s4et,
      p.iNAME,
      p.DATE_OPEN,
      CASE WHEN p.dt IS NULL
        THEN '(null)'
        ELSE p.dt
      END dt,
      CASE WHEN p.kt IS NULL
        THEN '(null)'
        ELSE p.kt
      END kt
    FROM pizdec p
    WHERE
      /*Задаем дату открытия счета*/
      to_date (p.DATE_OPEN,'DD.MM.YY' ) BETWEEN to_date (v_date, 'DD.MM.YYYY') AND to_date (v_date2, 'DD.MM.YYYY')
    AND to_number (p.NUM) IN (rr(1), rr(2), rr(3), rr(4));
begin
  /*Проверка на правильность ввода даты*/
  IF (regexp_substr(v_date, '([0-2]\d|3[01])\.(0\d|1[012])\.(\d{4})', 1, 1, 'i') IS NULL) 
      OR (regexp_substr(v_date2, '([0-2]\d|3[01])\.(0\d|1[012])\.(\d{4})', 1, 1, 'i') IS NULL) THEN
    raise_application_error(-20001,'Date is incorrect! Put correct date!');
  END IF;
  
  
  ORA_EXCEL. new_document;
  ORA_EXCEL. add_sheet('Лист 1');
  ORA_EXCEL. add_row;
  ORA_EXCEL. set_cell_value('A' , 'Счет');
  ORA_EXCEL. set_cell_value('B' , 'COTDNAME');
  ORA_EXCEL. set_cell_value('C' , 'DATE_OPEN');
  ORA_EXCEL. set_cell_value('D' , 'Дебет');
  ORA_EXCEL. set_cell_value('E' , 'Кредит');
  ORA_EXCEL. set_cell_font('A', 'Times New Roman' , 14);
  ORA_EXCEL. set_cell_font('B', 'Times New Roman' , 14);
  ORA_EXCEL. set_cell_font('C', 'Times New Roman' , 14);
  ORA_EXCEL. set_cell_font('D', 'Times New Roman' , 14);
  ORA_EXCEL. set_cell_font('E', 'Times New Roman' , 14);
  ORA_EXCEL. set_cells_filter('A1', 'E1');
  FOR cur_rec IN t_data
  LOOP
    ORA_EXCEL. add_row;
    ORA_EXCEL. set_cell_value('A' , cur_rec.s4et);
    ORA_EXCEL. set_cell_value('B' , TO_CHAR (cur_rec.iNAME));
    ORA_EXCEL. set_cell_value('C' , cur_rec.DATE_OPEN);
    ORA_EXCEL. set_cell_value('D' , cur_rec.dt);
    ORA_EXCEL. set_cell_value('E' , cur_rec.kt);
    EXIT
  WHEN t_data%NOTFOUND;
  END LOOP;
  ORA_EXCEL. save_to_file(v_put, 'example.xlsx');
  DBMS_OUTPUT.enable;
  Dbms_Output.Put_Line('Файло создано');
EXCEPTION
WHEN OTHERS THEN
  raise_application_error(-20001,sqlerrm,true);
  ORA_EXCEL. save_to_file(v_put, 'example.xlsx');
  RAISE;
END;
end;

set serveroutput on;
begin
ora_to_excel_free ('01.02.2015','01.02.2015', '6216, 6403, 1562, 3214', 'DIR');
end;

AND to_number (p.NUM) IN (rr(1), rr(2), rr(3), rr(4));

p.NUM VARCHAR2(100 BYTE)

set serveroutput on;
begin
ora_to_excel ('01.02.2015','01.02.2015', '6216, 6403, 1562, 3214', 'MDVDIR');
end;