How to Upload Excel file to Application Server

Question

Hi Friends,
ALSM_EXCEL_TO_INTERNAL_TABLE this F.M is to upload the excel format into internal table , The problem here is after uploading the excel file the format has been changed according to the F.M ... so Im not able to compare the value with my final internal table because the structure is different ... even if I could match with the values Im not able to  upload it to my application server ... is there any F.M which doesn't change the excel format and upload it to the internal table ? ... Or is there any other way of doing it other than using at new , case endcase. ? ...
Thanks in advance ...
Cheers

Answer 1

Hi friend,
Simply use GUI_UPLOAD function to get data from excel, txt etc.., into internal table in program.
Try this program.. It performs downloading and uploading functions in both excel and .txt format.
*& Report  ZAWI_DEMODOWNLOAD                                           *
REPORT  zawi_demodownload                       .
*Types
TYPES: BEGIN OF g_r_mara,
       matnr LIKE mara-matnr,
       ersda LIKE mara-ersda,
       laeda LIKE mara-laeda,
       mtart LIKE mara-mtart,
       mbrsh LIKE mara-mbrsh,
       END OF g_r_mara.
TYPES: BEGIN OF g_r_mara1,
       matnr TYPE string,
       ersda TYPE string,
       laeda TYPE string,
       mtart TYPE string,
       mbrsh TYPE string,
       END OF g_r_mara1.
*Data
DATA: g_t_mara TYPE TABLE OF g_r_mara,
      g_t_mara1 TYPE TABLE OF g_r_mara,
      g_t_mara2 TYPE TABLE OF g_r_mara1,
      filename TYPE string,
      f1 TYPE string,
      f2 TYPE string,
      x TYPE string,
      x1 TYPE string,
      x2 TYPE string,
      x3 TYPE strng,
      c TYPE string,
      g_r_wa TYPE g_r_mara,
      g_r_wa1 TYPE g_r_mara1,
      g_r_wa2 TYPE g_r_mara1,
     g_t_mara2 TYPE TABLE OF g_r_mara1,
      str TYPE string.
*Tables
TABLES: mara.
*Selection Screen
SELECT-OPTIONS: s_matnr FOR mara-matnr.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(20) text-001 FOR FIELD p1.
PARAMETERS:p1 RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(20) text-002 FOR FIELD p2.
PARAMETERS p2 RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF LINE.
*Input validation.
DATA: s_high TYPE mara-matnr,
      s_low TYPE mara-matnr.
AT SELECTION-SCREEN ON s_matnr.
  IF NOT s_matnr-high IS INITIAL.
    s_high = s_matnr-high.
    SELECT SINGLE * FROM mara WHERE matnr = s_high.
    IF sy-subrc <> 0.
     IF NOT s_matnr-low IS INITIAL.
      s_low = s_matnr-low.
      SELECT SINGLE * FROM mara WHERE matnr = s_low.
      IF sy-subrc <> 0.
        MESSAGE e012(zawi_demo).
      ELSE.
        MESSAGE e011(zawi_demo).
      ENDIF.
    ENDIF.
  ENDIF.
AT SELECTION-SCREEN.
  SELECT SINGLE * FROM mara WHERE matnr IN s_matnr.
  IF sy-subrc <> 0.
    IF s_matnr-low IS INITIAL.
      str = s_matnr-high.
    ELSE.
      str = s_matnr-low.
    ENDIF.
    MESSAGE e010(zawi_demo) WITH str..
  ENDIF.
START-OF-SELECTION.
*Data retrival
  SELECT matnr ersda laeda mtart mbrsh
    INTO  CORRESPONDING FIELDS OF TABLE g_t_mara
    FROM mara
    WHERE matnr IN s_matnr.
  IF p1 = 'X'.
    filename = 'C:\Testing.xls'.
   Downloading data from internal table to excel or txt
    f1 = filename.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename              = filename
        filetype              = 'ASC'
     append                = 'X'
        write_field_separator = 'X'
     col_select = 'X'
      TABLES
        data_tab              = g_t_mara.
  ELSE.
    filename = 'C:\Testing.txt'.
    f2 = filename.
    LOOP AT g_t_mara INTO g_r_wa.
      CONCATENATE g_r_wa-matnr ';'  INTO g_r_wa1-matnr.
      CONCATENATE g_r_wa-ersda ';'  INTO g_r_wa1-ersda.
      CONCATENATE g_r_wa-laeda ';'  INTO g_r_wa1-laeda.
      CONCATENATE g_r_wa-mtart ';'  INTO g_r_wa1-mtart.
      CONCATENATE g_r_wa-mbrsh ';'  INTO g_r_wa1-mbrsh.
      APPEND g_r_wa1 TO g_t_mara2.
    ENDLOOP.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename              = filename
        filetype              = 'ASC'
     append                = 'X'
     write_field_separator = 'X'
     col_select = 'X'
      TABLES
        data_tab              = g_t_mara2.
  ENDIF.
   Uploading data from excel to internal table 1
  IF filename = f1.
    CALL FUNCTION 'GUI_UPLOAD'
      EXPORTING
        filename            = filename
        filetype            = 'ASC'
        has_field_separator = 'X'
      TABLES
        data_tab            = g_t_mara1.
    WRITE: / 'Uploaded data' COLOR = 1.
    WRITE:/.
    CLEAR g_r_wa.
    LOOP AT g_t_mara1 INTO g_r_wa.
      WRITE:/ g_r_wa-matnr, g_r_wa-ersda, g_r_wa-laeda, g_r_wa-mtart, g_r_wa-mbrsh.
    ENDLOOP.
  ELSE.
    IF filename = f2.
                       IF sy-subrc <> 0.
                       ENDIF.
      CALL FUNCTION 'GUI_UPLOAD'
        EXPORTING
          filename            = filename
          filetype            = 'ASC'
          has_field_separator = 'X'
          replacement         = ''
        TABLES
          data_tab            = g_t_mara2.
      WRITE: / 'Uploaded data' COLOR = 1.
      WRITE:/.
      CLEAR g_r_wa1.
      LOOP AT g_t_mara2 INTO g_r_wa1.
        g_r_wa2-matnr = g_r_wa1-matnr.
        TRANSLATE g_r_wa2-matnr USING '; ' .
        WRITE:/ g_r_wa2-matnr, g_r_wa2-ersda, g_r_wa2-laeda, g_r_wa2-mtart, g_r_wa2-mbrsh.
        CLEAR g_r_wa2.
      ENDLOOP.
    ENDIF.
  ENDIF.
                                                                                OR
Use T-codes:
CG3Y - Download file               - Download file from Application server
CG3Z - Upload file                    - Upload file to Application server