导出SAP表结构到EXCEl

将SE11中看到的数据表结构，制作成EXCEL文件，以便查阅。CPOY的话得一个字段一个元素的COPY再一个个粘过去，不仅麻烦，如果一个结构有上百个元素，工作量也是很大的。

研究整理了一下各位达人的程序，写了一个新的导出程序。本程序只需在选择界面输入要导出的结构名及保存路径，就在该路径下生成一个以该结构命名的EXCEL文件。也可以指定输出结构的单独字段。代码如下：

REPORT YTABLE no standard page heading
                 message-id y2
                 line-size 200
                 line-count 65 .

tables: dfies, x030l,rlgrap.

data: begin of itab occurs 0.
        include structure dfies.
data: end of itab.
data: g_file like rlgrap-filename.   "下载保存路径
data:begin of itab1 occurs 0,
     fieldname like dfies-fieldname, "Fieldname
     keyflag(4),    "KEY
     rollname(12),   "Data Element
     datatype(8),   "Data Type
     leng(6),       "Length
     decimals(6),   "Decimal Place
     fieldtext like dfies-fieldtext, "Short Description
end of itab1.

*********************定义屏幕
selection-screen begin of block blk1 with frame title text-001.
parameters:table type ddobjname default 'VBAK',
field type dfies-fieldname,
p_dnfile like rlgrap-filename default 'D:/'.
selection-screen end of block blk1.

start-of-selection.
perform read_data."从表中读取数据

end-of-selection.
perform write_data."输出数据
*&---------------------------------------------------------------------*
*&      Form read_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
form read_data .
*****CALL FUNCTION*****
call function 'DDIF_FIELDINFO_GET'
    exporting
      tabname        = table
      fieldname      = field
      langu          = sy-langu "这个可以改成别的语言,For Short Descriptions
    tables
      dfies_tab      = itab " like table dfies.
    exceptions
      not_found      = 1
      internal_error = 2
      others         = 3.
if sy-subrc <> 0.
*    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.

itab1-fieldname = '字段'. "Fieldname
itab1-keyflag = '主键'.    "KEY
itab1-rollname = '数据元素'.   "Data Element
itab1-datatype = '数据类型'.   "Data Type
itab1-leng = '长度'.       "Length
itab1-decimals = '小数位'. "Decimal Place
itab1-fieldtext = '短文本'. "Short Description
append itab1.
clear itab1.

loop at itab.
    itab1-fieldname = itab-fieldname.
    itab1-keyflag = itab-keyflag.
    itab1-rollname = itab-rollname.
    itab1-datatype = itab-datatype.
    itab1-leng = itab-leng.
    itab1-decimals = itab-decimals.
    itab1-fieldtext = itab-fieldtext.
    append itab1.
    clear itab1.
endloop.

concatenate p_dnfile table '.xls' into g_file. "这里为将内表数据下载到本地D盘,名字为表名，类型为EXCEL
call function 'WS_DOWNLOAD'
    exporting
      filename = g_file
      filetype = 'DAT'
    tables
      data_tab = itab1. "被下载的内表

endform.                    " read_data
*&---------------------------------------------------------------------*
*&      Form write_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
form write_data .
loop at itab1.
    write:/ itab1-fieldname, "Fieldname
            itab1-keyflag,    "KEY
            itab1-rollname,   "Data Element
            itab1-datatype,   "Data Type
            itab1-leng,       "Length
            itab1-decimals,   "Decimal Place
            itab1-fieldtext. "Short Description
endloop.
endform.                    " write_data

导出SAP表结构到EXCEl相关推荐

达梦数据库导出数据表结构为excel或html或文本（写文档用）
达梦数据库导出数据表结构为excel或html或文本(写文档用) 项目中用的是国产达梦数据库,项目做了一期后应该是要数据库设计文档.其中就有一个需要表结构(字段,字段精度,说明...) 因为是国产数据 ...
navicat查询oracle表结构,利用Navicat Premium导出数据库表结构信息至Excel的方法
因为要编写设计文档,需要用到数据库表结构,想要在word文档中以二维表格的形式展示,故借助Excel形成二维表格样式,还是很方便的样子! 1.新建查询,并将以下SQL语句修改至需要 SELECT CO ...
使用 Navicat 导出数据表的表结构到 excel
文章目录使用 Navicat 工具导出数据表的表结构到 excel 前言一.方式一 (推荐) 1.使用SQL查询表结构二.方式二 1.使用SQL直接导出 Excel 文件总结前言在设计数据 ...
Oracle 导出部分表结构，以及导入
Oracle 只导出部分表结构,以及导入 2010-12-09 11:54:51| 分类: 开发 | 标签:导出部分表结构 oracle导入 |字号大中小订阅导出: 一.在PL / sq ...
java 获取oracle表结构_Java导出oracle表结构实例详解
Java导出oracle表结构实例详解发布于 2020-7-20| 复制链接摘记: Java导出oracle表结构实例详解最近用到的,因为plsql是收费的,不让用,找了很多方法终于发现了这个. ...
JAVA实现导出mysql表结构到Word详细注解版
JAVA实现导出mysql表结构到Word详细注解版转自https://blog.csdn.net/weixin_42041153/article/details/109739073 本文在原文中一 ...
navicat导出数据库表结构及数据
前言我们在开发中使用数据库时往往需要做一些备份之类的,或者需要导出下表结构导入到其他数据库等本文介绍下使用navicat导出数据库表结构.表数据导出表结构.数据 1.选择工具->数据传输 ...
根据数据库表结构生成Excel表设计——源码设计说明
根据数据库表结构生成Excel表设计在系统运维的过程中,很多时候大家都不喜欢改文档,修改了数据库字段后很少同步再更新表设计文档的,这就导致系统运行一段时间后,系统表设计与实际生产跑业务的设计出入很大 ...
根据数据库表结构生成Excel表设计——工具介绍
根据数据库表结构生成Excel表设计最近又接手了一些老系统,库表设计啥的都没有,十来个系统,每个系统都几十张表,一个个的补感觉太难了,合计了一下感觉还是搞个工具比较好. 在系统运维的过程中,很多时候 ...

导出SAP表结构到EXCEl

导出SAP表结构到EXCEl相关推荐

最新文章

热门文章