1.封装思路

直接复制粘贴激活直接用
首先,需要你在SE11中创建一个和你Excel中的字段相同的结构,然后把这个结构名字以字符串的形式传给方法.几乎可以实现任意扁平结构的Excel转到内表.

2.参数

2.1.参数解析

上面的图片可以比较清晰的说明各个参数的用法,以下字段详细介绍个别字段.

FILENAME 这个字段是你导入Excel文件的路径名称
IV_STRUCTURE_NAME 这个是你在SE11创建的结构名, 结构名要以字符串的形式传,比如我的结构名叫 ZTEST_S ,你在传输的时候不能直接 IV_STRUCTURE_NAME = ZTEST_S ,要给他加上单引号!!
ET_TABLE 这个就是把Excel储存到内表了 ,要用你上面创建的结构为参考的内表去接收.

3.代码

代码具体实现逻辑相对简单不在阐述,自己去研究.

  METHOD EXCEL_TO_INTERNAL_TABLE.

    FIELD-SYMBOLS: <fv_value>     TYPE any.
    DATA: es_intern    TYPE alsmex_tabline,
          lv_index     LIKE sy-tabix,
          lo_structure TYPE REF TO cl_abap_structdescr,
          lr_data      TYPE REF TO data.

    CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
      EXPORTING
        filename                = filename
        i_begin_col             = i_begin_col
        i_begin_row             = i_begin_row
        i_end_col               = i_end_col
        i_end_row               = i_end_row
      TABLES
        intern                  = et_intern
      EXCEPTIONS
        inconsistent_parameters = 1
        upload_ole              = 2
        OTHERS                  = 3.

    IF sy-subrc <> 0.
      MESSAGE 'Excel parsing failed' TYPE 'S' DISPLAY LIKE 'E' .
      LEAVE LIST-PROCESSING.
    ENDIF.

    lo_structure ?= cl_abap_structdescr=>describe_by_name( p_name = iv_structure_name ).
    CREATE DATA lr_data TYPE HANDLE lo_structure.
    ASSIGN lr_data->* TO FIELD-SYMBOL(<lfs_structure>).

    LOOP AT et_intern INTO es_intern.
      lv_index = es_intern-col.
      UNASSIGN <fv_value>.
      ASSIGN COMPONENT lv_index OF STRUCTURE <lfs_structure> TO <fv_value>.
      MOVE es_intern-value TO <fv_value>.

      AT END OF row.
        APPEND <lfs_structure> TO et_table.
      ENDAT.
    ENDLOOP.

  ENDMETHOD.

4.调用案例

*&---------------------------------------------------------------------*
*& Report ZDEMO_REPORT006
*&--------