REUSE_ALV_GRID_DISPLAY - Save as Excel - Default Extension Issue

Question

Hi Team,
Greetings for the Day !!
I have an issue with saving ALV Grid Output file as XLS. As I click the "Save Local File" Icon and select the Radio button for "Spreadsheet", in the next pop up for file path and file name, the extension ".txt" comes as default in the file name field. Here the expectation is that the default file extension should be ".xls" rather than ".txt". Your inputs are awaited..
Thank you so much..
Best Regards,
Naga Chaitanya

Answer 1

Hello Chaitanya,
Try to download excel with OLE below is for reference
TYPES: ty_line(5000) TYPE c.
  DATA: date TYPE sy-datum.
***************&OLE objects for Excel Output&* handles for OLE objects
  DATA: h_excel TYPE ole2_object,        " Excel object
        h_mapl  TYPE ole2_object,        " list of workbooks
        h_map   TYPE ole2_object,        " workbook
        h_f     TYPE ole2_object,        " font
        column  TYPE ole2_object,        " Column
        sheet   TYPE ole2_object,
        row     TYPE ole2_object    .",
  CONSTANTS wl_c09(2) TYPE n VALUE 09.
  FIELD-SYMBOLS : <f1>,
                  <f2>.
  DATA :w_rc           TYPE i,
        w_hex          TYPE x,
        column2        TYPE ole2_object,
        column3        TYPE ole2_object,
        column4        TYPE ole2_object,
        w_deli(1)  TYPE c,
        var1 TYPE fieldname, "Delimiter
        lv_qty1(30)    TYPE c,
        lv_qty2(30)    TYPE c,
        lv_qty3(30)    TYPE c.
  DATA: it_tab1 TYPE TABLE OF ty_line, " Contains records for first sheet
        wa_tab TYPE ty_line.
* start Excel
  CREATE OBJECT h_excel 'EXCEL.APPLICATION'.
  PERFORM err_hdl.
  SET PROPERTY OF h_excel  'Visible' = 1.
  PERFORM err_hdl.
  CALL METHOD OF h_excel 'Workbooks' = h_mapl.
  PERFORM err_hdl.
* add a new workbook
  CALL METHOD OF h_mapl 'Add' = h_map.
  PERFORM err_hdl.
  CALL METHOD OF h_excel 'Worksheets' = sheet
    EXPORTING #1 = 1.
  CALL METHOD OF sheet 'Activate'.       "Activate the sheet.
  SET PROPERTY OF sheet 'Name' = 'Sheet1'.
  PERFORM err_hdl.
  ASSIGN w_deli TO <f1> TYPE 'X'.
  w_hex = wl_c09.
  <f1> = w_hex.
**************************&For Column Header&*************************
  CLEAR wa_tab.
*  CLEAR:   wa_field .
  LOOP AT it_fieldcatalog INTO  wa_fieldcatalog.
    IF sy-tabix = 1.
      wa_tab = wa_fieldcatalog-coltext.
    ELSE.
      CONCATENATE  wa_tab wa_fieldcatalog-coltext INTO wa_tab SEPARATED BY w_deli.
    ENDIF.
  ENDLOOP.
  APPEND wa_tab TO it_tab1.
  CLEAR: wa_tab.
   LOOP AT it_output INTO  GS_output.   "Loop through the Output Data.
*  Move Quantity fields to lv variable for Concatenate.
    CLEAR: lv_qty1, lv_qty2, lv_qty3.
    CLEAR: wa_field.
    LOOP AT it_fieldcatalog INTO wa_fieldcatalog.
      CONCATENATE 'gs_output-' wa_fieldcatalog-fieldname INTO var1.
      ASSIGN (var1) TO <f2>.
*      IF wa_field-fieldname = 'POSID' OR
      IF wa_fieldcatalog-fieldname = 'ANLN1' OR   " posid
        wa_fieldcatalog-fieldname  = 'TXT50' OR
        wa_fieldcatalog-fieldname  = 'ANBTR' OR
        wa_fieldcatalog-fieldname  = 'ANBTR1' OR
        wa_fieldcatalog-fieldname  = 'ANBTR2' OR
        wa_fieldcatalog-fieldname  = 'LOG'    OR
        wa_fieldcatalog-fieldname  = 'STATUS'.
        WRITE: <f2> TO lv_qty1.
        IF sy-tabix = 1.
          wa_tab = lv_qty1.
        ELSE.
          CONCATENATE wa_tab lv_qty1 INTO wa_tab SEPARATED BY w_deli.
        ENDIF.
      ELSE.
        IF sy-tabix = 1.
          wa_tab = <f2>.
        ELSE.
          CONCATENATE wa_tab <f2> INTO wa_tab SEPARATED BY w_deli.
        ENDIF.
      ENDIF.
    ENDLOOP.
    APPEND wa_tab TO it_tab1.
    CLEAR: wa_tab.
  ENDLOOP.
  CALL METHOD OF h_excel 'Columns' = column2     "Formatting for quantity
   EXPORTING
   #1 = 8.
  SET PROPERTY OF column2 'HorizontalAlignment' = '4'.
  CALL METHOD OF h_excel 'Columns' = column3    "Formatting for quantity
     EXPORTING
     #1 = 8.
  SET PROPERTY OF column3 'HorizontalAlignment' = '4'.
  CALL METHOD OF h_excel 'Columns' = column4      "Formatting for quantity
   EXPORTING
   #1 = 8.
  SET PROPERTY OF column4 'HorizontalAlignment' = '4'.
   CALL METHOD cl_gui_frontend_services=>clipboard_export
    IMPORTING
      data                 = it_tab1[]
    CHANGING
      rc                   = w_rc
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.
* Paste the contents in the clipboard to the worksheet
  CALL METHOD OF sheet 'Paste'.
  CALL METHOD OF sheet 'Activate'.
* Autofit the columns according to the contents
  CALL METHOD OF h_excel 'Columns' = column.
  CALL METHOD OF column 'AutoFit'.
  GET PROPERTY OF column 'FONT'    = h_f .
*   GET PROPERTY OF column 'FONT'    = h_f .
  SET PROPERTY OF h_f    'Name'    = 'Calibri'.    "'Courier New'."Calibrig
  SET PROPERTY OF h_f    'Size'    = 11.
*   SET PROPERTY OF h_f   'Alignment'  = '2'.
* disconnect from Excel
  FREE OBJECT : h_excel, column, sheet.
endform.                    " DISPLAY_EXCEL
*&      Form  ERR_HDL
*       text
*  -->  p1        text
*  <--  p2        text
form ERR_HDL .
*  *  *  FORM err_hdl .
  IF sy-subrc <> 0.
    WRITE: / 'Error using OLE Automation:', sy-subrc.
    STOP.
  ENDIF.
endform.                    " ERR_HDL
Thanks
Sam