（Oracle）导出表结构

DECLARE
  cursor t_name is
    SELECT rank() over(order by a.TABLE_NAME) as xiaolonglong,a.TABLE_NAME 
    FROM User_Tables a where a.TABLE_NAME not like \'TMP%\' order by a.table_name;

  v_sql varchar(5000);
  v_result varchar(5000);
  
 begin
  for i in t_name Loop
        v_sql:=\'SELECT -1,\'\'表3-\'||i.xiaolonglong||\'    \'||i.TABLE_NAME||\'\'\' from dual
union all
select 0,\'\'序号\'\'\'||\'||chr(9)||\'\'参数名称\'\'\'||\'||chr(9)||\'\'参数类型\'\'\'||\'||chr(9)||\'\'含义\'\'\'||\'||chr(9)||\'\'长度\'\'\'||\'||chr(9)||\'\'空/非空\'\' from dual
union all
      SELECT * from(select
       T1.Column_Id,                                                                                                                          
       T1.Column_Id ||chr(9)||
       trim(T1.COLUMN_NAME) ||chr(9)||
       trim(T1.DATA_TYPE)  ||chr(9)||
       replace(T2.COMMENTS,chr(10),\'\'\'\') ||chr(9)||
       trim(T1.DATA_LENGTH)||chr(9)||
       case when t1.nullable=\'\'Y\'\' then \'\'允许空\'\' else \'\'非空\'\' end 
  FROM
  USER_TAB_COLS T1, USER_COL_COMMENTS T2
WHERE
  T1.TABLE_NAME = T2.TABLE_NAME AND T1.COLUMN_NAME = T2.COLUMN_NAME 
   AND t1.TABLE_NAME=\'\'\'||i.TABLE_NAME||\'\'\' order by 1) union all\';   
    --execute immediate (v_sql);
    --commit;
    dbms_output.put_line(v_sql);
  END LOOP;
end; 
以上语句生成每个表的语句SQL，拷贝出来，在打开新的SQL windows执行。

拷贝出来执行前修改删除union all然后在执行，如下图所示：

执行后如下图所示：

然后拷贝到你的excel中就大功高成了。

以上语句通过plsql亲测。