File upload to internal taqble

Question

Hi,
I am trying to use the function module GUI_UPLOAD to upload the excel file to internal table using web dynpro in ABAP. But giving an error while executing this FM. Let me know if any suggestions.
Thanks.

Answer 1

Hi, Check this Report.
data: itab like alsmex_tabline occurs 0 with header line.
Has the following format:
            Row number   | Colum Number   |   Value
     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,
    age1  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
PARAMETER p_infile like rlgrap-filename default 'D:\pulkit\VBAP1.xls'.
*START OF SELECTION
call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
       exporting
            filename                = p_infile
            i_begin_col             = '1'
            i_begin_row             = '1'  "Do not require headings
            i_end_col               = '4'
            i_end_row               = '3'
       tables
            intern                  = itab
       exceptions
            inconsistent_parameters = 1
            upload_ole              = 2
            others                  = 3.
  if sy-subrc <> 0.
    message e010(zz) with text-001. "Problem 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 '0001'.                              "First name
        wa_record-name1 = itab-value.
      when '0002'.                              "Surname
        wa_record-name2 = itab-value.
      when '0003'.                              "Age
        wa_record-age   = itab-value.
      when '0004'.                              "Age1
        wa_record-age1   = 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,
           (10) wa_record-age1, sy-vline.
  endloop.
regards
Gaurav