ABAP Excel Upload code example

Example: ABAP Excel Upload

TYPE-POOLS truxs.
PARAMETERS p_file TYPE rlgrap-filename.
TYPES : BEGIN OF t_tab,
          filename TYPE char100sm,
        END OF t_tab.
DATA : t_upload  TYPE STANDARD TABLE OF t_tab, 
       wa_upload TYPE t_tab,
       it_type   TYPE truxs_t_text_data.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      field_name = 'p_file'
    IMPORTING
      file_name  = p_file.
START-OF-SELECTION.
  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
      i_tab_raw_data       = it_type
      i_filename           = p_file
    TABLES
      i_tab_converted_data = t_upload[]
    EXCEPTIONS
      conversion_failed    = 1
      OTHERS               = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 .
  ENDIF.
END-OF-SELECTION.
  DATA : ls_cc_impl TYPE zBarry_upload,
         lt_cc_impl TYPE STANDARD TABLE OF  zBarry_upload.
  LOOP AT t_upload INTO wa_upload.
    ls_cc_impl-mandt      = sy-mandt.
    ls_cc_impl-filename   = wa_upload-filename.
    APPEND ls_cc_impl TO lt_cc_impl.
  ENDLOOP.
  MODIFY zBarry_upload FROM TABLE lt_cc_impl.