Question

怎么在oracle下写一个脚本，导出表数据为EXCEL格式文件

Answer 1

无法直接保存到excel中，但是可以保存到csv文件，同样是excel的格式，方法如下：
譬如要把文件生成在d盘下的test目录下：
1，在d盘根目录下新建test目录
2，sqlplus以system用sysdba登录
3，create or replace directory TMP as ’d:\test’;
4，grant read on directory TMP to user;
5，alter system set utl_file_dir='d:\test' scope=spfile;
然后建立存储过程，表是随便建了一个，最后的文件名按要求需要按照当前日期的前一天生成，所以后边文件名的地方write_file_name处就按照要求来了
create or replace PROCEDURE SP_OUTPUT
(
on_flag OUT NUMBER,
out_reason OUT VARCHAR2)
is
v_code number;
v_text varchar2(255);

file_handle utl_file.file_type;
Write_content VARCHAR2(1024);
Write_file_name VARCHAR2(50);
v_aaa varchar2(5);
v_bbb varchar2(5);

cursor cur_sp_out
is
select aaa,bbb
from aaa;
begin
open cur_sp_out;
loop
fetch cur_sp_out into v_aaa,v_bbb;
exit when cur_sp_out%notfound;
write_file_name := to_char(SYSDATE,'YYYYMMDD')||'.xls';
file_handle := utl_file.fopen('TMP',write_file_name,'a');
write_content := v_aaa||' '||v_bbb;
--write file
IF utl_file.is_open(file_handle) THEN
utl_file.put_line(file_handle,write_content);
END IF;
--close file
utl_file.fclose(file_handle);
end loop;
close cur_sp_out;

v_code := 0;
v_text := '完成';
exception
when others then
on_flag := SQLCODE;
out_reason := SQLERRM;
begin
IF utl_file.is_open(file_handle) THEN
utl_file.fclose(file_handle);
end IF;
end;
rollback;
end;

这样基本就完成了，但是建立完毕后需要重启数据库，否则文件写不进指定的目录下

需要注意的是： write_content := v_aaa||' '||v_bbb; 这个位置

v_aaa|| 和v_bbb中间引号的地方是TAB符，否则输出来的XLS文件中，会把这些字符串合在一个单元格中。