Download & upload of an excel file

Question

Hi,
      I have a requirement where the data needs to be downloaded into an excel file and user will upload the same excel file after making required changes in the data.
I have used 'GUI_DOWNLOAD' to download the data to excel file. I have tried to upload the same excel file using 'ALSM_EXCEL_TO_INTERNAL_TABLE' and 'TEXT_CONVERT_XLS_TO_SAP' function modules. But it is giving exceptions if I upload the same downloaded file directly. If I copy the data in the downloaded file to another excel file and upload this file, it is working.
I have tried using 'GUI_UPLOAD' with field separator which was also specified in 'GUI_DOWNLOAD' but in this case the data is uploaded into the internal table like,.
###&jkj, 0000 .......
Please suggest any other alternative.
Thanks & Regards,
Vishnu Priya

Answer 1

Hi,
You may like to give a try to this FM
RH_START_EXCEL_WITH_DATA.it will take care of your formatting problem.
go thru this program..
*& Report  RHVERI_EXCEL_DOWNLOAD                                       *
REPORT  rhveri_excel_download.
DATA: g_excelpath    TYPE string,
      g_excelversion TYPE string,
      g_codepage     TYPE abap_encod,                       "XMK#754232
      g_return_code  TYPE i,                                "XMK#754232
      BEGIN OF gt_data OCCURS 0,
        f1 TYPE char20,
        f2 TYPE char20,
        f3 TYPE char20,
        f4 TYPE char20,
      END   OF gt_data.
END-OF-SELECTION.
  gt_data-f1 = 'C1'.
  gt_data-f2 = 'C2'.
  gt_data-f3 = 'C3'.
  gt_data-f4 = 'C4'.
  APPEND gt_data.
  gt_data-f1 = '10'.
  gt_data-f2 = '11'.
  gt_data-f3 = '12'.
  gt_data-f4 = '13'.
  APPEND gt_data.
  gt_data-f1 = '20'.
  gt_data-f2 = '21'.
  gt_data-f3 = '22'.
  gt_data-f4 = '23'.
  APPEND gt_data.
  "XMK#754232
  gt_data-f1 = 'AEIOU'.                                     "#EC NOTEXT
  gt_data-f2 = 'aeiou'.                                     "#EC NOTEXT
  gt_data-f3 = '*?#/&§$#'.                                 "#EC *
  gt_data-f4 = 'äöüÄÖÜßaé'.                                 "#EC *
  APPEND gt_data.
  "XMK#754232
  CALL FUNCTION 'RH_CHECK_EXCEL_SUPPORT'
    IMPORTING
      excel_exe_path      = g_excelpath
      excel_version       = g_excelversion
    EXCEPTIONS
      no_batch            = 1
      internal_error      = 2
      excel_not_installed = 3
      wrong_frontend_os   = 4
      OTHERS              = 5.
  IF sy-subrc <> 0.
    WRITE / 'Testaufruf von Excel endete mit Fehlercode:'(002).
    WRITE: sy-subrc, / sy-msgv1, sy-msgv2, sy-msgv3, sy-msgv4.
    MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    EXIT.
  ELSE.
    WRITE: / 'Pfad von Excel'(005), g_excelpath.
    WRITE: / 'Version von Excel'(006), g_excelversion.
  ENDIF.
  "XMK#754232
  IF cl_abap_char_utilities=>charsize <> 1.
    WRITE / 'Unicode system'(007).
    CALL METHOD cl_gui_frontend_services=>get_saplogon_encoding
      CHANGING
        file_encoding = g_codepage
        rc            = g_return_code
      EXCEPTIONS
        OTHERS        = 1.
    IF sy-subrc <> 0.
      g_codepage = '4110'.
    ENDIF.
    WRITE: / 'Codepage is'(009), g_codepage.
  ELSE.
    WRITE / 'Non-Unicode system'(008).
  ENDIF.
  "XMK#754232
  CALL FUNCTION 'RH_START_EXCEL_WITH_DATA'
   EXPORTING
     data_filename             = 'TEST.DAT'
     data_path_flag            = 'W'
   DATA_ENVIRONMENT          =
     wait                      = 'X'
     data_table                = gt_data[]
   EXCEPTIONS
     no_batch                  = 1
     excel_not_installed       = 2
     internal_error            = 3
     cancelled                 = 4
     download_error            = 5
     no_authority              = 6
     file_not_deleted          = 7
     OTHERS                    = 8.
  IF sy-subrc <> 0.
    WRITE / 'Aufruf von Excel endete mit Fehlercode:'(003).
    WRITE: sy-subrc, / sy-msgv1, sy-msgv2, sy-msgv3, sy-msgv4.
    MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    EXIT.
  ELSE.
    WRITE / 'Aufruf von Excel lieferte keinen Fehler.'(004).
  ENDIF.
Regards,
Amit