SAP ABAP2XLSX Sheet表之间的跳转之ZDEMO_EXCEL4

rogerix4

已于 2023-03-24 07:53:39 修改

阅读量589

点赞数

分类专栏： ABAP开发 ABAP2XLSX 文章标签： sap abap

于 2020-10-08 15:08:00 首次发布

本文链接：https://blog.csdn.net/qq_30797051/article/details/108963498

版权

1. ABAP2XLSX Sheet表之间跳转、Sheet表颜色设置、SHeet表隐藏、Excel页眉页脚设置、Excel 打印设置 ZDEMO_EXCEL4

代码：

DATA: lo_excel                TYPE REF TO zcl_excel,
      lo_worksheet            TYPE REF TO zcl_excel_worksheet,

      lo_hyperlink            TYPE REF TO zcl_excel_hyperlink,

      lv_tabcolor             TYPE zexcel_s_tabcolor,

      ls_header               TYPE zexcel_s_worksheet_head_foot,
      ls_footer               TYPE zexcel_s_worksheet_head_foot.

CONSTANTS: gc_save_file_name TYPE string VALUE 'zdemo_excel.xlsx'.
INCLUDE zdemo_excel_outputopt_incl.


START-OF-SELECTION.

  " Creates active sheet
  CREATE OBJECT lo_excel.

  " Get active sheet
  lo_worksheet = lo_excel->get_active_worksheet( ).
  lo_worksheet->set_title( ip_title = 'Sheet1' ).
  lo_worksheet->zif_excel_sheet_properties~selected = zif_excel_sheet_properties=>c_selected.
  lo_worksheet->set_cell( ip_column = 'B' ip_row = 2 ip_value = 'Sheet1' ).

  lv_tabcolor-rgb = zcl_excel_style_color=>create_new_argb( ip_red   = 'FF'
                                                            ip_green = '00'
                                                            ip_blu   = '00' ).  "设置Sheet颜色
  lo_worksheet->set_tabcolor( lv_tabcolor ).

  lo_hyperlink = zcl_excel_hyperlink=>create_internal_link( iv_location = 'Shee