能否在SQL脚本内导出数据至Excel？（含Toad与SQL*Plus场景）

SQL*Plus 导出到Excel（非纯文本） #

如果之前用spool生成的纯文本不符合需求，可以调整SQL*Plus的环境参数，生成Excel原生支持的格式：

方案1：生成标准CSV格式 #

通过设置参数让spool输出符合CSV规范的内容，Excel可直接打开并自动分列：

-- 配置环境参数
SET ECHO OFF
SET FEEDBACK OFF
SET HEADING ON
SET COLSEP ','
SET LINESIZE 1000
SET PAGESIZE 0
SET TRIMSPOOL ON
SET TERMOUT OFF

-- 导出指定单条数据（替换为你的查询条件）
SPOOL C:\temp\single_row_export.csv
SELECT col1, col2, col3 FROM your_table WHERE id = 123;
SPOOL OFF

-- 恢复默认参数（可选）
SET ECHO ON
SET FEEDBACK ON
SET PAGESIZE 14
SET TERMOUT ON

方案2：生成HTML格式（带基础样式） #

如果需要保留表头格式，可生成HTML文件，Excel能直接解析为表格：

SET ECHO OFF
SET FEEDBACK OFF
SET HEADING OFF
SET LINESIZE 2000
SET PAGESIZE 0
SET TRIMSPOOL ON
SET TERMOUT OFF

SPOOL C:\temp\single_row_export.html
-- 输出HTML结构头部
SELECT '<html><body><table border="1"><tr><th>列1</th><th>列2</th><th>列3</th></tr>' FROM DUAL;
-- 输出目标数据行
SELECT '<tr><td>' || col1 || '</td><td>' || col2 || '</td><td>' || col3 || '</td></tr>' FROM your_table WHERE id = 123;
-- 输出HTML结构尾部
SELECT '</table></body></html>' FROM DUAL;
SPOOL OFF

-- 恢复默认参数
SET ECHO ON
SET FEEDBACK ON
SET PAGESIZE 14
SET TERMOUT ON

PL/SQL脚本（编辑器窗口执行）导出到Excel #

如果需要直接生成.xls原生格式文件，可以借助UTL_FILE包生成Excel支持的XML Spreadsheet格式：

DECLARE
  v_file UTL_FILE.FILE_TYPE;
  v_row your_table%ROWTYPE;
BEGIN
  -- 读取目标单条数据
  SELECT * INTO v_row FROM your_table WHERE id = 123;
  
  -- 注意：需先创建数据库目录并授权
  -- CREATE OR REPLACE DIRECTORY EXCEL_DIR AS 'C:\temp';
  -- GRANT READ, WRITE ON DIRECTORY EXCEL_DIR TO your_user;
  v_file := UTL_FILE.FOPEN('EXCEL_DIR', 'single_row_export.xls', 'W', 32767);
  
  -- 写入Excel XML格式头部
  UTL_FILE.PUT_LINE(v_file, '<?xml version="1.0"?>');
  UTL_FILE.PUT_LINE(v_file, '<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet">');
  UTL_FILE.PUT_LINE(v_file, '  <Worksheet Name="Sheet1">');
  UTL_FILE.PUT_LINE(v_file, '    <Table>');
  UTL_FILE.PUT_LINE(v_file, '      <Row>');
  UTL_FILE.PUT_LINE(v_file, '        <Cell><Data ss:Type="String">列1</Data></Cell>');
  UTL_FILE.PUT_LINE(v_file, '        <Cell><Data ss:Type="String">列2</Data></Cell>');
  UTL_FILE.PUT_LINE(v_file, '        <Cell><Data ss:Type="Number">列3</Data></Cell>');
  UTL_FILE.PUT_LINE(v_file, '      </Row>');
  
  -- 写入目标数据行
  UTL_FILE.PUT_LINE(v_file, '      <Row>');
  UTL_FILE.PUT_LINE(v_file, '        <Cell><Data ss:Type="String">' || v_row.col1 || '</Data></Cell>');
  UTL_FILE.PUT_LINE(v_file, '        <Cell><Data ss:Type="String">' || v_row.col2 || '</Data></Cell>');
  UTL_FILE.PUT_LINE(v_file, '        <Cell><Data ss:Type="Number">' || v_row.col3 || '</Data></Cell>');
  UTL_FILE.PUT_LINE(v_file, '      </Row>');
  
  -- 写入格式尾部
  UTL_FILE.PUT_LINE(v_file, '    </Table>');
  UTL_FILE.PUT_LINE(v_file, '  </Worksheet>');
  UTL_FILE.PUT_LINE(v_file, '</Workbook>');
  
  UTL_FILE.FCLOSE(v_file);
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    DBMS_OUTPUT.PUT_LINE('未找到指定数据行');
  WHEN OTHERS THEN
    IF UTL_FILE.IS_OPEN(v_file) THEN
      UTL_FILE.FCLOSE(v_file);
    END IF;
    RAISE;
END;
/

内容的提问来源于stack exchange，提问作者dave