正常写法:
DATA: lo_excel TYPE REF TO zcl_excel,
lo_worksheet TYPE REF TO zcl_excel_worksheet,
lo_hyperlink TYPE REF TO zcl_excel_hyperlink,
lo_column TYPE REF TO zcl_excel_column.
CREATE OBJECT lo_excel.
" Use active sheet
lo_worksheet = lo_excel->get_active_worksheet( ).
lo_worksheet->set_title( ip_title = 'Regular Font' ).
" 设置A BC列 自动列宽
lo_column = lo_worksheet->get_column( 'A' ).
lo_column->set_auto_size( ip_auto_size = abap_true ).
lo_column = lo_worksheet->get_column( 'B' ).
lo_column->set_auto_size( ip_auto_size = abap_true ).
lo_column = lo_worksheet->get_column( 'C' ).
lo_column->set_auto_size( ip_auto_size = abap_true ).
“需要加上这句,否则不生效
lo_worksheet->calculate_column_widths( ).
特别注意:设置列宽(自适应列宽只会对英文正确计算宽度,中文往往更长,所以中文显示会偏短) 通过调试发现是它们计算字符长度只考虑英文。
1、找到计算列宽的类方法
ep_width = zcl_excel_font=>calculate_text_width(
iv_font_name = ld_font_name
iv_font_height = ld_font_height
iv_flag_bold = ld_flag_bold
iv_flag_italic = ld_flag_italic
iv_cell_value = ld_cell_value ).
2、修改
" Calculate the cell width
" If available, use font metrics
IF lines( <ls_font_cache>-th_font_metrics ) = 0.
" Font metrics are not available
" -> Calculate the cell width using only the font size
* ------ 因为中文占2个宽度,所以改用其他方式获取
* ld_length = strlen( iv_cell_value ). "注释掉
ld_length = cl_abap_list_utilities=>dynamic_output_length( iv_cell_value ).
* ------ 因为中文占2个宽度,所以改用其他方式获取