如何将sql查询出的列名用注释代替？

大家正常的工作的时候，会有这样的要求，客户想要看下原始数据，但是呢。前台导出又麻烦，这时候只能从数据库拷贝出来一份。但是呢，数据库里面的字段客户又看不明白，只能用数据库里面的注释。但是这时候，如果要求很多张表，难道我们要一个个复制吗？这也太tm蠢了。

1 查看我们表

select * from user_col_comments where table_name='TNAME';

更新时间：2020/4/16
今天想弄下表信息，奈何一直显示不出来，后来发现，table_name的表名，必须要大写，必须要大写！！！

2 写上函数

create or replace function f_colcom(tname in varchar2) return varchar2 is
  Result  varchar2(400);
    tsql varchar2(400);
begin
  declare
     cursor c_job is
     select column_name, comments
         from user_col_comments
         where upper(table_name) = upper(tname);
         c_row c_job%rowtype;
   begin
     for c_row in c_job loop
       tsql := tsql || c_row.column_name||' "'||c_row.comments||'",';
      end loop;
       tsql := substr(tsql,1,length(tsql)-1);
        tsql := 'select '||tsql||'  from '||tname||';';
    end;
    result := tsql;
   return(Result);

  end f_colcom;
    /*sql查询出的列名转换其注释  2019/12/09   by 迷途的小码农 */

3 查询表字段

emmm。出错了。报错：ORA-06502: PL/SQL: 数字或值错误 : 字符串缓冲区太小

仔细看了下。函数中定义的变量值太小，加大它的范围即可。

咱也不知道需要多大，就直接给个最大的吧。4000

运行后可用：

将查询结果执行一遍。

查询之后就可以了，字段名称为注释

4 Excel函数VLOOKUP(函数)

函数的4个字段含义为：（需要查找的字段，在哪里查找，输出第几列，查找模式）

我拷贝下来的sql数据为下：

如果这么给客户看的话，客户是看不懂字段的意思的，所以我们需要用函数，将注释填写上去。

我们查询出这张表的注释和字段，复制到Excel里面sheet4下，如下：

接着我们就需要用VLOOKUP 函数了。
我写的如下：

VLOOKUP(R1,Sheet4!1:1048576,2,FALSE) -->（需要查找的字段，在哪里查找，输出第几列，查找模式）

需要查找的字段：R1
在哪里查找：就在我复制下来的sheet4里面
输出第几列：将第二列的数据引用过来填写2
查找模式：有true和false 。true是模糊，false是精确。
这样下来，就可以直接替换了