ABAP 数据写入Excel 并保存千分位

gavin_gxh

已于 2024-05-06 16:01:23 修改

阅读量578

点赞数 8

分类专栏： ABAP 文章标签：其他经验分享

于 2024-04-29 11:22:11 首次发布

gavin-gxh

本文链接：https://blog.csdn.net/xiaofei2008gxh/article/details/138306439

版权

ABAP 专栏收录该内容

207 篇文章 16 订阅

订阅专栏

参考老白 https://www.cnblogs.com/liaojunbo/archive/2011/09/06/2168552.html

但是缺zcl_excel 。需要从 dotabap要引入abap2xlsx

英文版进入后

尝试了一下

1）列的宽度自适应么有找到在哪里？

列宽设置 lo_worksheet->set_column_width( ip_column = 'A' ip_width_fix = 8 ).

参考 ABAP 使用ABAP2XLSX操作EXCEL_abap2xlsx应用-CSDN博客

2）单元格中多行换行的好像还不行

3）选择区域加框线的设置没有找到。

LO_WORKSHEET->SET_AREA( IP_ROW = 1 IP_ROW_TO = 6 IP_COLUMN_START = 'B' IP_COLUMN_END = 'G' IP_STYLE = LV_STYLE_BOLD_BORDER_GUID ).

4）数据格式千分位的格式设置

后续看下如何设置

 LO_CURR = LO_EXCEL->ADD_NEW_STYLE( ).
  LO_CURR->FONT->BOLD = ABAP_TRUE.
  LO_CURR->FONT->ITALIC = ABAP_FALSE.
  LO_CURR->FONT->COLOR-RGB = ZCL_EXCEL_STYLE_COLOR=>C_BLACK.
  LO_CURR->ALIGNMENT->HORIZONTAL = ZCL_EXCEL_STYLE_ALIGNMENT=>C_HORIZONTAL_CENTER.
LO_CURR->NUMBER_FORMAT->FORMAT_CODE = ZCL_EXCEL_STYLE_NUMBER_FORMAT=>C_FORMAT_XLSX38.
  LO_CURR->BORDERS->ALLBORDERS = LO_BORDER_DARK.
  LO_CURR_GUID = LO_CURR->GET_GUID( ).

  DATA:LCURR LIKE BSEG-DMBTR.
  LCURR = '12345673456.1234'.

  LO_WORKSHEET->SET_CELL( IP_ROW = 2 IP_COLUMN = 'C' IP_VALUE = LCURR IP_ABAP_TYPE = CL_ABAP_TYPEDESCR=>TYPEKIND_FLOAT IP_STYLE =  LO_CURR_GUID ).