ABAP2XLSX自动列宽

最新推荐文章于 2023-11-29 11:26:10 发布

SAP古生

最新推荐文章于 2023-11-29 11:26:10 发布

阅读量340

点赞数 1

分类专栏： ABAP 文章标签： excel

本文链接：https://blog.csdn.net/ptyqsh/article/details/129808173

版权

ABAP 专栏收录该内容

13 篇文章 3 订阅

订阅专栏

正常写法：

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 BＣ列　自动列宽
  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( ).

特别注意：设置列宽（自适应列宽只会对英文正确计算宽度，中文往往更长，所以中文显示会偏短）通过调试发现是它们计算字符长度只考虑英文。

１、找到计算列宽的类方法

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 ).

２、修改

    " 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个宽度，所以改用其他方式获取