SAP ABAP下载XLSX时VEKP-EXIDV字段显示异常问题咨询

问题本质 #

Excel会自动将纯数字组成的长字符串识别为数值型，进而用科学计数法压缩显示——即便SAP端将字段定义为Char 20类型，下载后的文件内容没有明确标记该字段为文本类型，Excel仍会触发自动格式转换。

可行解决方案 #

方法1：在字段值前添加单引号（强制Excel识别为文本）

在下载前给VEKP-EXIDV字段值前拼接英文单引号，Excel会将其视为文本前缀，显示时隐藏单引号但保留完整字符串：

DATA: lt_download TYPE TABLE OF your_structure,
      ls_download TYPE your_structure.

LOOP AT lt_original INTO ls_original.
  ls_download = ls_original.
  " 给包装号添加文本前缀单引号
  ls_download-exidv = `'` && ls_original-exidv.
  APPEND ls_download TO lt_download.
ENDLOOP.

CALL METHOD cl_gui_frontend_services=>gui_download
  EXPORTING
    filename                = 'C:\temp\packing_list.xlsx'
    filetype                = 'ASC' " 用纯文本格式避免Excel自动转换
  CHANGING
    data_tab                = lt_download
  EXCEPTIONS
    file_write_error        = 1
    gui_refuse_filetransfer = 3
    OTHERS                  = 22.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

注意：后续上传时需要去掉前缀的单引号再处理数据。

方法2：用CSV格式下载并包裹双引号（更规范的纯文本格式）

将数据拼接为CSV格式，给包装号字段用双引号包裹，确保Excel打开时按文本解析：

DATA: lt_csv TYPE TABLE OF string,
      lv_line TYPE string.

LOOP AT lt_original INTO ls_original.
  CONCATENATE ls_original-field1
              `"` && ls_original-exidv && `"`
              ls_original-field2
              INTO lv_line SEPARATED BY ','.
  APPEND lv_line TO lt_csv.
ENDLOOP.

CALL METHOD cl_gui_frontend_services=>gui_download
  EXPORTING
    filename                = 'C:\temp\packing_list.csv'
    filetype                = 'ASC'
    write_field_separator   = abap_false " 已手动处理分隔符和引号
  CHANGING
    data_tab                = lt_csv
  EXCEPTIONS
    OTHERS                  = 22.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

方法3：使用XLSX写入库直接指定单元格格式（最严谨）

用ABAP官方或第三方XLSX写入库（如cl_xlsx_writer）生成标准XLSX文件，直接设置包装号列的单元格格式为文本，从根源避免自动转换：

DATA(lo_writer) = cl_xlsx_writer=>create( filename = 'C:\temp\packing_list.xlsx' ).
DATA(lo_sheet) = lo_writer->add_sheet( 'Packing Data' ).

" 写入表头
lo_sheet->set_cell( row = 1 col = 1 value = '字段1' ).
lo_sheet->set_cell( row = 1 col = 2 value = '包装号' ).
lo_sheet->set_cell( row = 1 col = 3 value = '字段2' ).

" 创建文本格式样式（Excel文本格式代码为@）
DATA(lo_text_style) = cl_xlsx_style=>create( ).
lo_text_style->set_number_format( '@' ).
" 给第二列（包装号列）绑定文本样式
lo_sheet->set_column_style( col_start = 2 col_end = 2 style = lo_text_style ).

" 写入数据
DATA(lv_row) = 2.
LOOP AT lt_original INTO ls_original.
  lo_sheet->set_cell( row = lv_row col = 1 value = ls_original-field1 ).
  lo_sheet->set_cell( row = lv_row col = 2 value = ls_original-exidv ).
  lo_sheet->set_cell( row = lv_row col = 3 value = ls_original-field2 ).
  lv_row = lv_row + 1.
ENDLOOP.

" 保存文件
lo_writer->save( ).

关键注意事项 #

• 避免使用filetype = 'XLS'调用GUI_DOWNLOAD：该参数生成的旧版Excel格式会触发Excel自动类型识别，极易引发格式异常。
• SAP_CONVERSION_TO_XLS_FORMAT默认不会处理长数字串的文本标记，手动添加前缀或用XLSX库的方案更可靠。

内容的提问来源于stack exchange，提问作者Thukkaram