Download Excel with Headings and Formatting

I have a requirement to download internal table contents to excel with field headings with many formatting. Here is the sample code. Hope it can help you too :)

CREATE OBJECT H_EXCEL 'EXCEL.APPLICATION'.
  SET PROPERTY OF H_EXCEL  'Visible' = 1.
  PERFORM ERR_HDL.
  CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
  PERFORM ERR_HDL.
  CALL METHOD OF H_MAPL 'Add' = H_MAP.
  PERFORM ERR_HDL.
* tell user what is going on
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
*           PERCENTAGE = 0
           TEXT       = TEXT-009
       EXCEPTIONS
            OTHERS     = 1.
* tell user what is going on
  SET PROPERTY OF H_MAP 'NAME' = 'COPY'.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
*           PERCENTAGE = 0
           TEXT       = TEXT-010
       EXCEPTIONS
            OTHERS     = 1.

LOOP AT t_dwld.
  CALL METHOD OF H_EXCEL 'Cells' = H_ZL EXPORTING #1 = I #2 = J.
  PERFORM ERR_HDL.
  SET PROPERTY OF H_ZL 'Value' = VAL .
  PERFORM ERR_HDL.
  GET PROPERTY OF H_ZL 'Font' = H_F.
  PERFORM ERR_HDL.
  SET PROPERTY OF H_F 'Bold' = BOLD .
  PERFORM ERR_HDL.
  CALL METHOD OF h_zl 'Interior' = h_i.
  PERFORM ERR_HDL.
  SET PROPERTY OF h_i 'Color' = 866677777. 
  PERFORM ERR_HDL.
  FREE OBJECT H_EXCEL.
  PERFORM ERR_HDL.
  if sy-subrc = 0.
    message 'Download completed. Save excel to your local folder.' type 'I'.
  endif.ENDLOOP.

with 
FORM ERR_HDL.

  IF SY-SUBRC <> 0.
    WRITE: / 'Fehler bei OLE-Automation:'(010), SY-SUBRC.
    STOP.
  ENDIF.

ENDFORM.

SHARE SHARE SHARE

Mariana Novelia Senjaya

Hi. I’m author of ABAP Diary. I’m CEO/Founder of Meet Grapppi. I’m Creative Art Director, Web Designer, Interaction Designer, Industrial Designer, Web Developer, ABAPER, Analyst, Business Enthusiast, StartUp Enthusiast, Lecturer and Writer. Inspired to make things looks better.

• 
• 
• 
•