ADI Standard Report Output Excel Format

Question

Standard Report in Excel Format requested by ADI has some problem; Numbers does not go into each appropriate cell. Therefore the standard report look ugly in Excel format.
How I can make perfect Excel format standard Report using ADI?
Your response will be appreciated.

Answer 1

Check the following code:
REPORT ZCREATEEXCEL.
TYPE-POOLS OLE2.
DATA: EXCEL     TYPE OLE2_OBJECT,
      WORKBOOKS TYPE OLE2_OBJECT,
      WORKBOOK  TYPE OLE2_OBJECT.
DATA: FILENAME LIKE RLGRAP-FILENAME.
* START THE EXCEL APPLICATION
  CREATE OBJECT EXCEL 'EXCEL.APPLICATION'.
  PERFORM ERR_HDL.
* PUT EXCEL IN FRONT
  SET PROPERTY OF EXCEL  'VISIBLE' = 1.
  PERFORM ERR_HDL.
* INFORM USER OF THE CURRENT STATUS
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
       EXPORTING
            PERCENTAGE = 0
            TEXT       = TEXT-I08
       EXCEPTIONS
            OTHERS     = 1.
* CREATE AN EXCEL WORKBOOK OBJECT
  CALL METHOD OF EXCEL 'WORKBOOKS' = WORKBOOKS.
  PERFORM ERR_HDL.
  CALL METHOD OF WORKBOOKS 'ADD' = WORKBOOK.
  PERFORM ERR_HDL.
* EXCEL FILENAME
  CONCATENATE SY-REPID '_' SY-DATUM+6(2) '_' SY-DATUM+4(2) '_'
              SY-DATUM(4) '_' SY-UZEIT '.XLS' INTO FILENAME.
  CALL METHOD OF WORKBOOK 'SAVEAS' EXPORTING #1 = FILENAME.
  FORM ERR_HDL.
  IF SY-SUBRC <> 0.
    WRITE: / 'OLE ERROR: RETURN CODE ='(I10), SY-SUBRC.
    STOP.
  ENDIF.
ENDFORM.
*-- End of Program