GUI_UPLOAD for excel?

Question

Experts:
How to upload excel file directly into an internal table using GUI_UPLOAD without converting the excel file into a tab delimited file?
Thanks,
UV

Answer 1

hope with this u can achieve wat ur exactly looking for
REPORT  zupload_excel_to_itab.
TYPE-POOLS: truxs.
PARAMETERS: p_file TYPE  rlgrap-filename.
TYPES: BEGIN OF t_datatab,
col1(30)    TYPE c,
col2(30)    TYPE c,
col3(30)    TYPE c,
END OF t_datatab.
DATA: it_datatab type standard table of t_datatab,
wa_datatab type t_datatab.
DATA: it_raw TYPE truxs_t_text_data.
At selection screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION u2018F4_FILENAMEu2019
EXPORTING
field_name = u2018P_FILEu2019
IMPORTING
file_name  = p_file.
*START-OF-SELECTION.
START-OF-SELECTION.
CALL FUNCTION u2018TEXT_CONVERT_XLS_TO_SAPu2019
EXPORTING
    I_FIELD_SEPERATOR        =
i_line_header            =  u2018Xu2019
i_tab_raw_data           =  it_raw       u201D WORK TABLE
i_filename               =  p_file
TABLES
i_tab_converted_data     = it_datatab[]    u201CACTUAL DATA
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 sy-msgv3 sy-msgv4.
ENDIF.
END-OF-SELECTION.
END-OF-SELECTION.
LOOP AT it_datatab INTO wa_datatab.
WRITE:/ wa_datatab-col1,
wa_datatab-col2,
wa_datatab-col3.
ENDLOOP.
&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014
*& Report  UPLOAD_EXCEL                                                *
&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014
*& Upload and excel file into an internal table using the following    *
*& function module: ALSM_EXCEL_TO_INTERNAL_TABLE                       *
&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014
REPORT  UPLOAD_EXCEL no standard page heading.
*Data Declaration
*u2014u2014u2014u2014u2014-
data: itab like alsmex_tabline occurs 0 with header line.
Has the following format:
            Row number   | Colum Number   |   Value
            u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014
     i.e.     1                 1             Name1
              2                 1             Joe
TYPES: Begin of t_record,
name1 like itab-value,
name2 like itab-value,
age   like itab-value,
End of t_record.
DATA: it_record type standard table of t_record initial size 0,
wa_record type t_record.
DATA: gd_currentrow type i.
*Selection Screen Declaration
*u2014u2014u2014u2014u2014u2014u2014u2014u2014-
PARAMETER p_infile like rlgrap-filename.
*START OF SELECTION
call function u2018ALSM_EXCEL_TO_INTERNAL_TABLEu2019
exporting
filename                = p_infile
i_begin_col             = u20181u2032
i_begin_row             = u20182u2032  u201CDo not require headings
i_end_col               = u201814u2032
i_end_row               = u201831u2032
tables
intern                  = itab
exceptions
inconsistent_parameters = 1
upload_ole              = 2
others                  = 3.
if sy-subrc <> 0.
message e010(zz) with text-001. u201CProblem uploading Excel Spreadsheet
endif.
Sort table by rows and colums
sort itab by row col.
Get first row retrieved
read table itab index 1.
Set first row retrieved to current row
gd_currentrow = itab-row.
loop at itab.
  Reset values for next row
if itab-row ne gd_currentrow.
append wa_record to it_record.
clear wa_record.
gd_currentrow = itab-row.
endif.
case itab-col.
when u20180001u2032.                              u201CFirst name
wa_record-name1 = itab-value.
when u20180002u2032.                              u201CSurname
wa_record-name2 = itab-value.
when u20180003u2032.                              u201CAge
wa_record-age   = itab-value.
endcase.
endloop.
append wa_record to it_record.
*!! Excel data is now contained within the internal table IT_RECORD
Display report data for illustration purposes
loop at it_record into wa_record.
write:/     sy-vline,
(10) wa_record-name1, sy-vline,
(10) wa_record-name2, sy-vline,
(10) wa_record-age, sy-vline.
endloop.