ABAP2XLSX输出内表数据到Excel、新建Sheet、设置数据有效性验证、输出Range，参考标准演示文档ZDEMO_EXCEL3

代码：

TYPE-POOLS: abap. DATA: lo_excel TYPE REF TO zcl_excel, lo_worksheet TYPE REF TO zcl_excel_worksheet, column_dimension TYPE REF TO zcl_excel_worksheet_columndime. DATA: ls_table_settings TYPE zexcel_s_table_settings. DATA: lv_title TYPE zexcel_sheet_title, lt_carr TYPE TABLE OF scarr, lv_row TYPE zexcel_cell_row VALUE 2, lo_range TYPE REF TO zcl_excel_range. DATA: lo_data_validation TYPE REF TO zcl_excel_data_validation. DATA: lt_test TYPE TABLE OF sflight. FIELD-SYMBOLS: <carr> LIKE LINE OF lt_carr. CONSTANTS: c_airlines TYPE string VALUE 'Airlines'. CONSTANTS: gc_save_file_name TYPE string VALUE 'zdemo_excel3.xlsx'. INCLUDE zdemo_excel_outputopt_incl. PARAMETERS: p_empty TYPE flag. "设置是否清空内表内容 START-OF-SELECTION. " Creates active sheet CREATE OBJECT lo_excel. *第一张Sheet输出 lo_worksheet = lo_excel->get_active_worksheet( ). lo_worksheet->set_title( ip_title = 'Internal table'). "设置sheet名称 IF p_empty <> abap_true. "如果p_empty值不选中，才查询数据到内表 SELECT * FROM sflight INTO TABLE lt_test. "#EC CI_NOWHERE ENDIF. ls_table_settings-table_style = zcl_excel_table=>builtinstyle_medium2. "设置Excel输出样式，具体为配色方案 ls_table_settings-show_row_stripes = abap_true. "是否输出内表效果Zebra ls_table_settings-nofilters = abap_true. "是否不输出筛选效果 lo_worksheet->bind_table( ip_table = lt_test is_table_settings = ls_table_settings ). "绑定输出内表和输出效果 lo_worksheet->freeze_panes( ip_num_rows = 1 ). "冻结第一行Title，不随滚动条滚动 lo_worksheet->freeze_panes( ip_num_columns = 2 ). "冻结前两列，不随滚动条滚动 column_dimension = lo_worksheet->get_column_dimension( ip_column = 'C' ). "设置C列宽度为12 column_dimension->set_width( ip_width = 12 ). *第二张sheet输出 lo_worksheet = lo_excel->add_new_worksheet( ). "新增一个sheet表 lv_title = 'Data Validation'. lo_worksheet->set_title( lv_title ). "设置新建的Sheet表名称 lo_worksheet->set_cell( ip_column = 'A' ip_row = 1 ip_value = c_airlines ). "设置Sheet"Data Validation" A1单元格值 SELECT * FROM scarr INTO TABLE lt_carr. LOOP AT lt_carr ASSIGNING <carr>. lo_worksheet->set_cell( ip_column = 'A' ip_row = lv_row ip_value = <carr>-carrid ). "lv_row默认值为2，把scarr中的值，从A2单元格开始填充 lv_row = lv_row + 1. ENDLOOP. lv_row = lv_row - 1. "loop中lv_row会多+1，所以先-1 lo_range = lo_excel->add_new_range( ). "创建一个Range lo_range->name = c_airlines. "Range为A1单元格值Airlines lo_range->set_value( ip_sheet_name = lv_title "设置Sheet 名称 ip_start_column = 'A' ip_start_row = 2 ip_stop_column = 'A' ip_stop_row = lv_row ). "从A[lv_row]开始向A2倒叙填充 lo_excel->set_active_sheet_index( 2 ). "设置默认激活Sheet2 lo_worksheet = lo_excel->get_active_worksheet( ). lo_data_validation = lo_worksheet->add_new_data_validation( ). "设置数据有效性验证，只能选择通过下拉栏选择固定值 lo_data_validation->type = zcl_excel_data_validation=>c_type_list. "使用下拉列表方式 lo_data_validation->formula1 = c_airlines. "数据有效性检查的Range Name * lo_data_validation->formula2 = lo_data_validation->cell_column = 'B'. lo_data_validation->cell_row = 1. lo_data_validation->cell_column_to = 'B'. lo_data_validation->cell_row_to = 20. *** Create output lcl_output=>output( lo_excel ).

运行程序后，输出选项：

Save to Frontend 前台输出，下载到电脑Save to Backend 后台输出Direct Display 直接输出，在SAP GUI显示Excel表Send Via Email 发送至邮箱

直接输出-前台显示结果：