oracle中导出excel


		oracle中导出excel
 
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');