To upload an excel file from front end using GUI_UPLOAD

Question

Hi All,
Please give me the code to upload data from front end to internal table only using GUI_UPLOAD.
Thanks,
Kumar

Answer 1

Check this program , reward points if helpful
*& Report  ZEXCEL_UPLOAD                                               *
report  ZEXCEL_UPLOAD    message-id ZMSG.
tables :T001.
data : begin of ITAB occurs 0,
      BUKRS like T001-BUKRS,
      BUTXT like T001-BUTXT,
      ORT01 like T001-ORT01,
      LAND1 like T001-LAND1,
      WAERS like T001-WAERS,
      end of ITAB.
data : WA_T001_EXCEL like ITAB.
data : IT_T001_EXCEL like standard table of WA_T001_EXCEL.
data IT_TEXT like ITAB occurs 0 with header line.
data : IT_RETURN  like standard table of ALSMEX_TABLINE,
       WA_RETURN like ALSMEX_TABLINE,
        WA_RETURNS like ALSMEX_TABLINE.
data : V_FILE type STRING,V_MASK(10) type C.
selection-screen  begin of block B1 with frame title TEXT-001.
parameters P_FILE like RLGRAP-FILENAME .
selection-screen end of block B1.
selection-screen  begin of block B2 with frame title TEXT-002.
parameter : R_TXT  radiobutton group G1 default 'X' user-command C1,
            R_EXCEL radiobutton group G1.
selection-screen end of block B2.
at selection-screen on value-request for P_FILE.
  if R_TXT = 'X'.
    V_MASK = '*TXT'.
  elseif R_EXCEL = 'X'.
    V_MASK = '*XLS'.
  endif.
  call function 'KD_GET_FILENAME_ON_F4'
    exporting
      PROGRAM_NAME  = SYST-REPID
      DYNPRO_NUMBER = SYST-DYNNR
      MASK          = V_MASK
    changing
      FILE_NAME     = P_FILE.
at selection-screen.
  translate P_FILE to upper case.
  if R_TXT = 'X'.
    search P_FILE for '*TXT'.
    if SY-SUBRC <> 0.
      message E011.
    endif.
  endif.
  if R_EXCEL = 'X'.
    search P_FILE for '*XLS'.
    if SY-SUBRC <> 0.
      message E012.
    endif.
  endif.
start-of-selection.
  V_FILE = P_FILE.
  if R_TXT = 'X'.
    call function 'GUI_UPLOAD'
      exporting
        FILENAME            = V_FILE
        FILETYPE            = 'ASC'
        HAS_FIELD_SEPARATOR = 'X'
      tables
        DATA_TAB            = IT_TEXT.
    if SY-SUBRC eq 0.
      message I013 with V_FILE.
      loop at IT_TEXT .
    write :/ IT_TEXT-BUKRS color 4, IT_TEXT-BUTXT color 3,IT_TEXT-ORT01
    color 5,
    IT_TEXT-LAND1 color 2,IT_TEXT-WAERS color 1.
      endloop.
    endif.
  elseif R_EXCEL = 'X'.
    call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
      exporting
        FILENAME    = P_FILE
        I_BEGIN_COL = 1
        I_BEGIN_ROW = 1
        I_END_COL   = 4
        I_END_ROW   = 2
      tables
        INTERN      = IT_RETURN.
    if SY-SUBRC eq 0.
      message I014 with P_FILE.
      sort IT_RETURN by ROW COL.
      loop at IT_RETURN into WA_RETURNS.
        WA_RETURN = WA_RETURNS.
        case WA_RETURN-COL.
          when 1.
            WA_T001_EXCEL-BUKRS = WA_RETURN-VALUE.
          when 2.
            WA_T001_EXCEL-BUTXT = WA_RETURN-VALUE.
          when 3.
            WA_T001_EXCEL-ORT01 = WA_RETURN-VALUE.
          when 4.
            WA_T001_EXCEL-LAND1 = WA_RETURN-VALUE.
        endcase.
        at end of ROW.
          append WA_T001_EXCEL to IT_T001_EXCEL.
          clear : WA_RETURN, WA_T001_EXCEL.
        endat.
      endloop.
    endif.
    loop at IT_T001_EXCEL into WA_T001_EXCEL.
      write :/ WA_T001_EXCEL-BUKRS color 1, WA_T001_EXCEL-BUTXT color 2,
               WA_T001_EXCEL-ORT01 color 3,WA_T001_EXCEL-LAND1 color 4.
    endloop.
  endif.