TYPES:BEGIN OF ty_data,
  aufnr  TYPE afko-aufnr,              "订单
  END OF ty_data.

PARAMETERS: p_impfil LIKE rlgrap-filename . --画面上定义一个选择框
DATA: itab TYPE TABLE OF alsmex_tabline WITH HEADER LINE.
"主要代码：
FIELD-SYMBOLS: <fs>,
    <fs_alv> TYPE ty_data.

    CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
      EXPORTING
        filename    = g_file
        i_begin_col = 1
        i_begin_row = 2   "--去掉表头
        i_end_col   = 30
        i_end_row   = 15000
      TABLES
        intern      = itab[].        --先放到系统内表
"- 再放入自定义内表：
 LOOP AT itab.
      ON CHANGE OF itab-row.
        IF sy-tabix NE 1.
          APPEND  w_data TO t_data.
          CLEAR   w_data.
        ENDIF.
      ENDON.ASSIGN COMPONENT itab-col OF STRUCTURE  w_data TO <fs>.
      "动态方法将值传到相应的内表
      <fs> = itab-value.
 ENDLOOP.
    APPEND  w_data TO t_data.

    l_name = p_impfil.
    CLEAR:t_data.

    CALL FUNCTION 'GUI_UPLOAD'
      EXPORTING
        filename                = l_name "选择文件的路径
        filetype                = 'DAT'
        has_field_separator     = 'X'
        read_by_line            = 'X'
        codepage                = '4110'
*       ignore_cerr             = abap_true
        replacement             = '#'
      TABLES
        data_tab                = t_data2
      EXCEPTIONS
        file_open_error         = 1
        file_read_error         = 2
        no_batch                = 3
        gui_refuse_filetransfer = 4
        invalid_type            = 5
        no_authority            = 6
        unknown_error           = 7
        bad_data_format         = 8
        header_not_allowed      = 9
        separator_not_allowed   = 10
        header_too_long         = 11
        unknown_dp_error        = 12
        access_denied           = 13
        dp_out_of_memory        = 14
        disk_full               = 15
        dp_timeout              = 16
        OTHERS                  = 17.
    DELETE t_data2 INDEX 1.  " 去掉第一行表头