oracle中导出excel

40m1r515h5

create or replace directory MY_DIR
  as 'c:/abc';


create or replace procedure export_data_out_excel

/**
  使用utl_file将需要导出的数据写入到文本文件
  pfile_name：输出文件名。
  pexport_sql：执行的sql语句，select id||chr(9),name||chr(9) from tablename，chr(9)是TAB字符,以保证数据输出到excel能自动换到下一列。
  **/
as
  type som_content_record_type is record(
    car_num varchar2(250),
    cap_date varchar2(250),
    dev_chnname  varchar2(250),
    dev_chnid  varchar2(250));


  som_content_rec som_content_record_type;
  err_num         number;
  err_msg         varchar2(2000);

  type cur_som_content is ref cursor;

  c_som_content cur_som_content;
  l_file        utl_file.file_type;
begin
  l_file := utl_file.fopen('MY_DIR',to_char (sysdate-1, 'YYYY-mm-dd')|| '.xls', 'w');
  utl_file.put(l_file, '车牌号'||chr(9));
  utl_file.put(l_file, '抓拍时间'||chr(9));
  utl_file.put(l_file, '通道名称'||chr(9));
  utl_file.put_line(l_file, '通道编号'||chr(9));
  open c_som_content for 'select car_num||chr(9),to_char (cap_date, ''YYYY-mm-dd'')||chr(9),dev_chnname||chr(9),dev_chnid ||chr(9) from c_table t where t.cap_date >= to_date(to_char(sysdate, ''YYYY-mm-dd''), ''YYYY-mm-dd'') - 1 and t.cap_date <= to_date(to_char(sysdate,''YYYY-mm-dd''),''YYYY-mm-dd'')';
  loop
    fetch c_som_content
      into som_content_rec.car_num, som_content_rec.cap_date,som_content_rec.dev_chnname,som_content_rec.dev_chnid;

    exit when c_som_content%notfound;
    utl_file.put(l_file, som_content_rec.car_num);
    utl_file.put(l_file, som_content_rec.cap_date);
    utl_file.put(l_file, som_content_rec.dev_chnname);
    utl_file.put_line(l_file, som_content_rec.dev_chnid);
  end loop;

  close c_som_content;

  utl_file.fflush(l_file);
  utl_file.fclose(l_file);

exception
  when others then
    if utl_file.is_open(l_file) then
      utl_file.fclose(l_file);
      err_num := sqlcode;
      err_msg := substr(sqlerrm, 1, 2000);

      commit;
    end if;
end;

如果写：frw:=utl_file.fopen('c:\abc','emp.txt','w');

会报错
ora-29280  目录无效
改成
frw:=utl_file.fopen('MY_DIR','emp.txt','w');