*&---------------------------------------------------------------------*
*& Report Z_INPUT_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT z_input_test.
DATA:
it_tab TYPE STANDARD TABLE OF zinfo WITH HEADER LINE,
it_zin TYPE STANDARD TABLE OF zinfo WITH HEADER LINE,
it_exc TYPE alsmex_tabline OCCURS 0 WITH HEADER LINE. "excel中的数据需要先放在参照alsmex_tabline结构体的内表中row col value
FIELD-SYMBOLS: <fs>.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: in_file LIKE rlgrap-filename OBLIGATORY. "Local file for upload/download
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR in_file.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
mask = ',Excel Files,*.xls*.'
*& Report Z_INPUT_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT z_input_test.
DATA:
it_tab TYPE STANDARD TABLE OF zinfo WITH HEADER LINE,
it_zin TYPE STANDARD TABLE OF zinfo WITH HEADER LINE,
it_exc TYPE alsmex_tabline OCCURS 0 WITH HEADER LINE. "excel中的数据需要先放在参照alsmex_tabline结构体的内表中row col value
FIELD-SYMBOLS: <fs>.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: in_file LIKE rlgrap-filename OBLIGATORY. "Local file for upload/download
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR in_file.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
mask = ',Excel Files,*.xls*.'

这个博客演示了如何将Excel文件中的数据上传到SAP系统,并更新到指定的数据库表中。通过调用函数模块`ALSM_EXCEL_TO_INTERNAL_TABLE`将Excel转换为内部表,然后进行数据验证和处理,最后使用`MODIFY`语句更新ZINFO表中的记录。
最低0.47元/天 解锁文章
358

被折叠的 条评论
为什么被折叠?



