ABAP2XLSX手动创建一个Excel表并输出，参考标准演示文档ZDEMO_EXCEL2

代码：

DATA: lo_excel TYPE REF TO zcl_excel, lo_worksheet TYPE REF TO zcl_excel_worksheet, lo_style_bold TYPE REF TO zcl_excel_style, lo_style_underline TYPE REF TO zcl_excel_style, lo_style_filled TYPE REF TO zcl_excel_style, lo_style_border TYPE REF TO zcl_excel_style, lo_style_button TYPE REF TO zcl_excel_style, lo_border_dark TYPE REF TO zcl_excel_style_border, lo_border_light TYPE REF TO zcl_excel_style_border. DATA: lv_style_bold_guid TYPE zexcel_cell_style, lv_style_underline_guid TYPE zexcel_cell_style, lv_style_filled_guid TYPE zexcel_cell_style, lv_style_filled_green_guid TYPE zexcel_cell_style, lv_style_border_guid TYPE zexcel_cell_style, lv_style_button_guid TYPE zexcel_cell_style, lv_style_filled_turquoise_guid TYPE zexcel_cell_style, lv_style_gr_cornerlb_guid TYPE zexcel_cell_style, lv_style_gr_cornerlt_guid TYPE zexcel_cell_style, lv_style_gr_cornerrb_guid TYPE zexcel_cell_style, lv_style_gr_cornerrt_guid TYPE zexcel_cell_style, lv_style_gr_horizontal90_guid TYPE zexcel_cell_style, lv_style_gr_horizontal270_guid TYPE zexcel_cell_style, lv_style_gr_horizontalb_guid TYPE zexcel_cell_style, lv_style_gr_vertical_guid TYPE zexcel_cell_style, lv_style_gr_vertical2_guid TYPE zexcel_cell_style, lv_style_gr_fromcenter_guid TYPE zexcel_cell_style, lv_style_gr_diagonal45_guid TYPE zexcel_cell_style, lv_style_gr_diagonal45b_guid TYPE zexcel_cell_style, lv_style_gr_diagonal135_guid TYPE zexcel_cell_style, lv_style_gr_diagonal135b_guid TYPE zexcel_cell_style . DATA: lv_file TYPE xstring, lv_bytecount TYPE i, lt_file_tab TYPE solix_tab. DATA: lv_full_path TYPE string, lv_workdir TYPE string, lv_file_separator TYPE c. DATA: lo_row_dim TYPE REF TO zcl_excel_worksheet_rowdimensi, column_dimension TYPE REF TO zcl_excel_worksheet_columndime. CONSTANTS: gc_save_file_name TYPE string VALUE 'zdemo_excel2'. INCLUDE zdemo_excel_outputopt_incl. START-OF-SELECTION. CREATE OBJECT lo_excel. " Create border object CREATE OBJECT lo_border_dark. "设置单元格黑色边框 lo_border_dark->border_color-rgb = zcl_excel_style_color=>c_black. lo_border_dark->border_style = zcl_excel_style_border=>c_border_thin. CREATE OBJECT lo_border_light. "设置单元格灰色边框 lo_border_light->border_color-rgb = zcl_excel_style_color=>c_gray. lo_border_light->border_style = zcl_excel_style_border=>c_border_thin. " Create a bold / italic style lo_style_bold = lo_excel->add_new_style( ). "Skip一行，针对样式表，并不是输出Excel跳行 lo_style_bold->font->bold = abap_true. "设置字体加粗 lo_style_bold->font->italic = abap_true. "设置斜字体 lo_style_bold->font->name = zcl_excel_style_font=>c_name_arial. "设置显示字体为 Arial lo_style_bold->font->scheme = zcl_excel_style_font=>c_scheme_none. "设置字体主题 lo_style_bold->font->color-rgb = zcl_excel_style_color=>c_red. "设置字体颜色为红色 lv_style_bold_guid = lo_style_bold->get_guid( ). "给此样式分配一个GUID " Create an underline double style lo_style_underline = lo_excel->add_new_style( ). lo_style_underline->font->underline = abap_true. "增加下划线 lo_style_underline->font->underline_mode = zcl_excel_style_font=>c_underline_double. "设置下划线2行 lo_style_underline->font->name = zcl_excel_style_font=>c_name_roman. lo_style_underline->font->scheme = zcl_excel_style_font=>c_scheme_none. lo_style_underline->font->family = zcl_excel_style_font=>c_family_roman. "Font Family 把多个字体名称作为一个“回退”系统来保存。如果浏览器不支持第一个字体，则会尝试下一个 lv_style_underline_guid = lo_style_underline->get_guid( ). " Create filled style lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>C_FILL_PATTERN_GRAY0625."设置单元格背景图案样式 lo_style_filled->fill->fgcolor-theme = zcl_excel_style_color=>c_theme_accent6. "设置字体颜色主题 lv_style_filled_guid = lo_style_filled->get_guid( ). " Create border with button effects lo_style_button = lo_excel->add_new_style( ). lo_style_button->borders->right = lo_border_dark. "设置右边框黑色 lo_style_button->borders->down = lo_border_dark. "设置下边框黑色 lo_style_button->borders->left = lo_border_light. "设置左边框灰色 lo_style_button->borders->top = lo_border_light. "设置上边框灰色 lv_style_button_guid = lo_style_button->get_guid( ). "Create style with border lo_style_border = lo_excel->add_new_style( ). lo_style_border->borders->allborders = lo_border_dark. "设置单元格所有边框为lo_border_dark 黑色 lo_style_border->borders->diagonal = lo_border_dark. "设置单元格对角线 lo_style_border->borders->diagonal_mode = zcl_excel_style_borders=>c_diagonal_both. "设置的那远哥对角线样式 C_DIAGONAL_DOWN lv_style_border_guid = lo_style_border->get_guid( ). " Create filled style green lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_solid. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_green. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_filled_green_guid = lo_style_filled->get_guid( ). " Create filled with gradients "设置渐变样式，B10-b23 C10-C23背景渐变样式 lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_cornerlb. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_gr_cornerlb_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_cornerlt. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_gr_cornerlt_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_cornerrb. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_gr_cornerrb_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_cornerrt. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_gr_cornerrt_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_horizontal90. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_gr_horizontal90_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_horizontal270. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_gr_horizontal270_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_horizontalb. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_gr_horizontalb_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_vertical. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_gr_vertical_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_vertical. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_gr_vertical2_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_fromcenter. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_gr_fromcenter_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_diagonal45. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_gr_diagonal45_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_diagonal45b. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_gr_diagonal45b_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_diagonal135. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_gr_diagonal135_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_diagonal135b. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_gr_diagonal135b_guid = lo_style_filled->get_guid( ). " Get active sheet lo_worksheet = lo_excel->get_active_worksheet( ). lo_worksheet->set_title( ip_title = 'Styles' ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 2 ip_value = 'Hello world' ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 3 ip_value = 'Bold text' ip_style = lv_style_bold_guid ). lo_worksheet->set_cell( ip_column = 'D' ip_row = 4 ip_value = 'Underlined text' ip_style = lv_style_underline_guid ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 5 ip_value = 'Filled text' ip_style = lv_style_filled_guid ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 6 ip_value = 'Borders' ip_style = lv_style_border_guid ). lo_worksheet->set_cell( ip_column = 'D' ip_row = 7 ip_value = 'I''m not a button :)' ip_style = lv_style_button_guid ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 9 ip_value = 'Modified color for Excel 2003' ip_style = lv_style_filled_turquoise_guid ). * " Fill the cell and apply one style * lo_worksheet->set_cell( ip_column = 'B' ip_row = 6 ip_value = 'Filled text' ip_style = lv_style_filled_guid ). " Change the style " Add Style to an empty cell to test Fix for Issue "#44 Exception ZCX_EXCEL thrown when style is set for an empty cell " https://code.sdn.sap.com/spaces/abap2xlsx/tickets/44-exception-zcx_excel-thrown-when-style-is-set-for-an-empty-cell lo_worksheet->set_cell_style( ip_column = 'B' ip_row = 6 ip_style = lv_style_filled_green_guid ). lo_worksheet->set_cell_style( ip_column = 'E' ip_row = 6 ip_style = lv_style_filled_green_guid ). "用IP_row读取行数读取渐变样式，B10-b23 C10-C23背景渐变样式，并应用到单元格 lo_worksheet->set_cell( ip_column = 'B' ip_row = 10 ip_style = lv_style_gr_cornerlb_guid ip_value = 'B10 Assign IP Value' ). "手动分配IP Value lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 10 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 11 ip_style = lv_style_gr_cornerlt_guid ip_value = zcl_excel_style_fill=>c_fill_gradient_cornerlt ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 11 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 12 ip_style = lv_style_gr_cornerrb_guid ip_value = zcl_excel_style_fill=>c_fill_gradient_cornerrb ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 12 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 13 ip_style = lv_style_gr_cornerrt_guid ip_value = zcl_excel_style_fill=>c_fill_gradient_cornerrt ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 13 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 14 ip_style = lv_style_gr_horizontal90_guid ip_value = zcl_excel_style_fill=>c_fill_gradient_horizontal90 ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 14 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 15 ip_style = lv_style_gr_horizontal270_guid ip_value = zcl_excel_style_fill=>c_fill_gradient_horizontal270 ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 15 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 16 ip_style = lv_style_gr_horizontalb_guid ip_value = zcl_excel_style_fill=>c_fill_gradient_horizontalb ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 16 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 17 ip_style = lv_style_gr_vertical_guid ip_value = zcl_excel_style_fill=>c_fill_gradient_vertical ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 17 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 18 ip_style = lv_style_gr_vertical2_guid ip_value = zcl_excel_style_fill=>c_fill_gradient_vertical ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 18 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 19 ip_style = lv_style_gr_fromcenter_guid ip_value = zcl_excel_style_fill=>c_fill_gradient_fromcenter ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 19 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 20 ip_style = lv_style_gr_diagonal45_guid ip_value = zcl_excel_style_fill=>c_fill_gradient_diagonal45 ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 20 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 21 ip_style = lv_style_gr_diagonal45b_guid ip_value = zcl_excel_style_fill=>c_fill_gradient_diagonal45b ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 21 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 22 ip_style = lv_style_gr_diagonal135_guid ip_value = zcl_excel_style_fill=>c_fill_gradient_diagonal135 ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 22 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 23 ip_style = lv_style_gr_diagonal135b_guid ip_value = zcl_excel_style_fill=>c_fill_gradient_diagonal135b ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 23 ). lo_row_dim->set_row_height( ip_row_height = 30 ). column_dimension = lo_worksheet->get_column_dimension( ip_column = 'B' ). column_dimension->set_width( ip_width = 30 ). column_dimension = lo_worksheet->get_column_dimension( ip_column = 'D' ). column_dimension->set_width( ip_width = 20 ). * CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. * lv_file = lo_excel_writer->write_file( lo_excel ). * * " Convert to binary * CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' * EXPORTING * buffer = lv_file * IMPORTING * output_length = lv_bytecount * TABLES * binary_tab = lt_file_tab. ** " This method is only available on AS ABAP > 6.40 ** lt_file_tab = cl_bcs_convert=>xstring_to_solix( iv_xstring = lv_file ). ** lv_bytecount = xstrlen( lv_file ). * * " Save the file * cl_gui_frontend_services=>gui_download( EXPORTING bin_filesize = lv_bytecount * filename = lv_full_path * filetype = 'BIN' * CHANGING data_tab = lt_file_tab ). lcl_output=>output( lo_excel ).

运行程序后，输出选项：

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

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