ABAP 通用批导EXCLE数据到数据库表

原创

已于 2024-04-22 15:03:05 修改 · 661 阅读

19 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #ABAP

于 2024-04-18 16:43:27 首次发布

该篇文章详细描述了一个ABAP程序的过程，包括从Excel文件中读取数据并将其转换为内部表结构，使用ALV功能展示数据，以及用户命令实现数据的保存。重点在于使用`ALSM_EXCEL_TO_INTERNAL_TABLE`函数处理Excel数据和ALV的动态表格显示。

*&---------------------------------------------------------------------*
*& Report  ZTY_001
*&
*&---------------------------------------------------------------------*
REPORT zty_001.

*TYPE-POOLS:slis,abap.

DATA: BEGIN OF iexcel OCCURS 0.
        INCLUDE STRUCTURE alsmex_tabline.
DATA: END OF iexcel.

DATA: i_index TYPE i.
FIELD-SYMBOLS: <fs>.

*-----------
DATA: d_ref      TYPE REF TO data,

      lt_alv_cat TYPE TABLE OF lvc_s_fcat,

      ls_alv_cat LIKE LINE OF lt_alv_cat.

DATA: lt_table LIKE TABLE OF dntab.

DATA: ls_table TYPE dntab.

DATA: dyn_table TYPE REF TO data.

DATA: dyn_wa TYPE REF TO data.

FIELD-SYMBOLS :

  <dyn_table> TYPE table,

  <dyn_wa>    TYPE any,

  <dyn_field> TYPE any,

  <fs_str>    TYPE any.

*-------------------------------------------
PARAMETERS: p_fname LIKE rlgrap-filename MEMORY ID m01. " 获取文件路径
PARAMETERS: p_table  TYPE tabname,
            p_begrow TYPE i DEFAULT 2, "开始行
            p_begcol TYPE i DEFAULT 1. "开始列

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
  PERFORM get_field.

START-OF-SELECTION.
  PERFORM get_table.
  PERFORM upload.
  PERFORM alv_show.

*&---------------------------------------------------------------------*
*&      Form  get_field
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM get_field.

  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
*     DEF_FILENAME     = ' '
*     DEF_PATH         = ' '
      mask             = 'Excel Files,*.xls,All Files,*.csv,*.*.'
*     MODE             = ' '
      title            = '请选择要导入的格式'
    IMPORTING
      filename         = p_fname
*     RC               =
    EXCEPTIONS
      inv_winsys       = 1
      no_batch    &