Error while file download to excel

Question

Hi all,
I have a requirement where i need to download the final output table data into excel sheet.
I tried with the below logic. I am getting the pop up to open or save the excel sheet at desired location.
But when I open the excel sheet,its showing the corrupted data.
PFB the sample code  and suggest me a way out.
DATA:button_event TYPE REF TO cl_htmlb_event_button,
            event TYPE REF TO if_htmlb_data.
DATA:gs_report LIKE LINE OF gt_report.
*DATA:cl_bsp_utility.
DATA:gv_xstring TYPE xstring,
     app_type TYPE string,
     output   TYPE string.
event = cl_htmlb_manager=>get_event( request ).
IF event IS NOT INITIAL AND event->event_name = htmlb_events=>button.
  button_event ?= event.
  CASE event->event_server_name.
    WHEN 'test' .
      IF gt_report[] IS NOT INITIAL.
        LOOP AT gt_report INTO gs_report.
          CONCATENATE
          output
          gs_report-compuid
          cl_abap_char_utilities=>horizontal_tab
          gs_report-infocube
          cl_abap_char_utilities=>horizontal_tab
          gs_report-compid
          cl_abap_char_utilities=>horizontal_tab
          gs_report-rname
          cl_abap_char_utilities=>cr_lf
          INTO output SEPARATED BY space.
        ENDLOOP.
        app_type = 'APPLICATION/MSEXCEL;charset=utf-161e'.
        CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
          EXPORTING
            text           = output
           mimetype       = 'APPLICATION/MSEXCEL;charset=utf-161e'
          ENCODING       =
         IMPORTING
           buffer         = gv_xstring
        EXCEPTIONS
          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.
        CONCATENATE
        cl_abap_char_utilities=>byte_order_mark_little gv_xstring
        INTO gv_xstring
        IN BYTE MODE.
        CALL METHOD cl_bsp_utility=>download
          EXPORTING
            object_s            = gv_xstring
            content_type        = app_type
            content_disposition = 'attachment;Filename=ReportDetails.xls'
            response            = mresponse
            navigation          = navigation.
      ENDIF.
    WHEN OTHERS.
  ENDCASE.
ENDIF.
Thanks & Regards,
Lavanya.

Answer 1

Hi Lavanaya,
Try Changing
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
EXPORTING
text = output
mimetype = 'APPLICATION/MSEXCEL;charset=utf-161e'
* ENCODING =
IMPORTING
buffer = gv_xstring
* EXCEPTIONS
* FAILED = 1
* OTHERS = 2
to this
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
EXPORTING
text = output
mimetype = 'APPLICATION/MSEXCEL' <----Remove charset
* ENCODING =
IMPORTING
buffer = gv_xstring
* EXCEPTIONS
* FAILED = 1
* OTHERS = 2
Regards,
Anubhav