SAP 接口文档导出工具（程序非原创）

记录一个接口文档导出工具，转自：老胡Tiger/110.ABAP使用技巧/204.接口文档导出工具

1.程序优化

• 迁移数据文件到Temp目录，解决没有D盘用户运行报错的问题
• 增加保存路径选择，用户可自定义输出目录
• 修复了STRING等类型字段无法导出的错误-2021.11.25
• 修复了Exporting参数必输的错误逻辑-2021.11.25
  

2.使用方法

• 运行事务代码SMW0，上传Excel模板文件（对象名称为：ZRFC_DOC_MODEL_SIMPLE_BATCH）

• 文件下载：ZRFC_DOC_MODEL_SIMPLE_BATCH.XLS
  

• 新建报表程序，并执行

  REPORT zcreate_rfc_document.
  TABLES tfdir.
  TYPES ty_xmmc TYPE c LENGTH 20."项目名称
  TYPES ty_xt TYPE c LENGTH 20."系统
  TYPES ty_td TYPE c LENGTH 20."团队
  TYPES ty_mk TYPE c LENGTH 20."模块
  TYPES ty_cjz TYPE c LENGTH 20."创建者
  TYPES ty_cjr TYPE c LENGTH 20."创建日DATA: gd_path TYPE string.PARAMETERS : p_file TYPE char30 OBLIGATORY.
  SELECT-OPTIONS : s_jkmc FOR tfdir-funcname NO INTERVALS. "只一个框 NO INTERVALS 必输 OBLIGATORY 隐藏 NO-DISPLAY 隐藏黄箭头 NO-EXTENSION
  PARAMETERS p_spras TYPE funct-spras DEFAULT sy-langu.INITIALIZATION.%_p_file_%_app_%-text = '文件导出路径 '.%_s_jkmc_%_app_%-text = '接口名称 '.%_p_spras_%_app_%-text = '语言 '.AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.CALL METHOD cl_gui_frontend_services=>directory_browseEXPORTINGwindow_title    = '导出路径'CHANGINGselected_folder = gd_path.CALL METHOD cl_gui_cfw=>flush.CONCATENATE gd_path '\' INTO p_file.*点击执行按钮运行
  START-OF-SELECTION.INCLUDE  ole2incl.DATA:  excel TYPE ole2_object.   "Excel ObjectDATA:  books TYPE ole2_object.    "List of workbooksDATA:  range TYPE ole2_object.DATA:  book TYPE ole2_object.     "workbookDATA ls_tfdir TYPE tfdir.DATA ls_tftit TYPE tftit.DATA lt_fupararef TYPE TABLE OF fupararef WITH HEADER LINE.DATA lt_funct TYPE TABLE OF funct WITH HEADER LINE.DATA: BEGIN OF lt_itab OCCURS 0,xmmc       TYPE ty_xmmc , "项目名称xt         TYPE ty_xt   , "系统td         TYPE ty_td   , "团队mk         TYPE ty_mk   , "模块funcname   TYPE tfdir-funcname, "接口名称pname_main TYPE c LENGTH 40, "接口描述cjz        TYPE ty_cjz  , "创建者cjr        TYPE ty_cjr  , "创建日cslx       TYPE c LENGTH 6, "参数类型csjg       TYPE c LENGTH 1, "参数结构parameter  TYPE fupararef-parameter, "参数名称position   TYPE dd03p-position, "顺序号fieldname  TYPE dd03p-fieldname, "字段名称datatype   TYPE dd03p-datatype , "字段类型leng       TYPE dd03p-leng     , "字段长度decimals   TYPE dd03p-decimals , "字段小数位数scrtext_m  TYPE funct-stext, "字段描述defaultval TYPE fupararef-defaultval, "缺省值optional   TYPE fupararef-optional, "是否必填pposition  TYPE fupararef-pposition, "参数顺序structure  TYPE fupararef-structure, "接口参数的关联类型scrtext_t  TYPE funct-stext, "字段描述funcname_e TYPE tfdir-funcname, "接口名称END OF lt_itab.DATA typename TYPE typename.DATA typekind TYPE ddtypekind.DATA gotstate TYPE 

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！