abap - 导出本地表到excel的功能模块

Question

我正在 Business Warehouse 中开发一个程序，它允许您通过使用 rspcchain 表遵循父链到子链的层次结构来映射所有流程链。截至目前，我已经将输出打印到屏幕上，但我想将此输出导出到 excel。我一直无法找到用于此目的的功能模块，因此将不胜感激任何帮助

注意 - 在了解可用的 SALV 类后，我更改了代码以不同方式显示表格。

REPORT  Z_PC_VARIANT_MAPPING.

*Declaring types and variables
TYPES: BEGIN OF t_chains,
  chain_id LIKE  rspcchain-chain_id,
  variant LIKE rspcchain-variante,
END OF t_chains.

DATA: lt_rspcchain TYPE STANDARD TABLE OF t_chains,
      lwa_rspcchain TYPE t_chains,
      o_alv TYPE REF TO cl_salv_table,
      lx_msg TYPE REF TO cx_salv_msg.

TABLES: rspcchain.

*selection screen setup
SELECT-OPTIONS chain_id FOR rspcchain-chain_id.
SELECT-OPTIONS type FOR rspcchain-type.

*filling local table
SELECT chain_id variante
  FROM rspcchain  INTO TABLE lt_rspcchain
  WHERE chain_id IN chain_id AND
  type IN  type AND
  objvers = 'A'.

*original code to test printing output on screen
*LOOP AT lt_rspcchain INTO lwa_rspcchain.
*  skip.
*  WRITE lwa_rspcchain-chain_id.
*  WRITE lwa_rspcchain-variant.
*ENDLOOP.

IF sy-subrc NE 0. "sy-subrc = return code
  WRITE 'Data not found'.
ENDIF.


*loading data from local table into alv object table
TRY.
  cl_salv_table=>factory(
    IMPORTING
      r_salv_table = o_alv
    CHANGING
      t_table      = lt_rspcchain ).
  CATCH cx_salv_msg INTO lx_msg.
ENDTRY.

*calling display method to display table
o_alv->display( ).

Answer 1

您可以为此使用 SALV 框架，它带有一个类，可以将要显示的任何内容导出为各种格式，包括 Excel 可以理解的 .MHTML 和 .XML 格式。类 CL_SALV_TABLE 有一个方法 TO_XML 来支持它；此外，您可能需要 CL_SALV_BS_XML_UTILS 来处理转换。有关编码示例，请参阅报告 SALV_TEST_TABLE_DISPLAY_OR_XML。