ABAP 实现自定义Excel

ABAP 可以通过使用 SAP 提供的 Excel 操作类来实现自定义 Excel。以下是一个简单的示例代码：

REPORT z_custom_excel.

* 定义 Excel 类型和变量
TYPES: BEGIN OF ty_excel_data,
         col1 TYPE string,
         col2 TYPE string,
         col3 TYPE string,
       END OF ty_excel_data.

DATA: lt_excel_data TYPE STANDARD TABLE OF ty_excel_data,
      lo_excel      TYPE REF TO cl_excel.

* 创建 Excel 对象
CREATE OBJECT lo_excel.

* 添加工作表
lo_excel->workbook->add_worksheet( name = 'Sheet1' ).

* 设置表头
lo_excel->worksheet->write_string( row = 0 col = 0 value = 'Column 1' ).
lo_excel->worksheet->write_string( row = 0 col = 1 value = 'Column 2' ).
lo_excel->worksheet->write_string( row = 0 col = 2 value = 'Column 3' ).

* 添加数据
APPEND VALUE #( col1 = 'Data 1' col2 = 'Data 2' col3 = 'Data 3' ) TO lt_excel_data.
APPEND VALUE #( col1 = 'Data 4' col2 = 'Data 5' col3 = 'Data 6' ) TO lt_excel_data.

LOOP AT lt_excel_data INTO DATA(ls_excel_data).
  lo_excel->worksheet->write_string( row = sy-tabix col = 0 value = ls_excel_data-col1 ).
  lo_excel->worksheet->write_string( row = sy-tabix col = 1 value = ls_excel_data-col2 ).
  lo_excel->worksheet->write_string( row = sy-tabix col = 2 value = ls_excel_data-col3 ).
ENDLOOP.

* 保存 Excel 文件
lo_excel->workbook->close( ).

* 下载 Excel 文件
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
    filename            = 'custom_excel.xlsx'
    filetype            = 'ASC'
  TABLES
    data_tab            = lo_excel->workbook->get_data( )
  EXCEPTIONS
    file_write_error    = 1
    no_batch            = 2
    gui_refuse_filetransfer = 3
    invalid_type        = 4
    no_authority        = 5
    unknown_error       = 6
    header_not_allowed  = 7
    separator_not_allowed = 8
    filesize_not_allowed = 9
    header_too_long     = 10
    dp_error_create     = 11
    dp_error_send       = 12
    dp_error_write      = 13
    unknown_dp_error    = 14
    access_denied       = 15
    dp_out_of_memory    = 16
    disk_full           = 17
    dp_timeout          = 18
    file_not_found      = 19
    dataprovider_exception = 20
    control_flush_error = 21.

IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

以上代码可以创建一个名为 `custom_excel.xlsx` 的 Excel 文件，并在其中添加一个名为 `Sheet1` 的工作表，表头为 `Column 1`、`Column 2` 和 `Column 3`，数据为 `Data 1`、`Data 2`、`Data 3` 和 `Data 4`、`Data 5`、`Data 6`。最后将 Excel 文件下载到本地。