ALV is the best way to display a report in ABAP. We will explore the different ways of using ALV reports. Please find below some code to just get you started.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' is the function module used. marked in brown.
Also another function module to convert the report to excel format is used namely CALL FUNCTION 'SAP_CONVERT_TO_XLS_FORMAT'.
You can aslo use OLE to format excel sheets.
Please see the links given below for OLE.
See Also
SAP OLE for EXCEL PART1
SAP OLE for EXCEL PART2
SAP OLE for EXCEL PART3
Sample SAP ABAP ALV Report
REPORT zex_PayementDetails .
* Tables declaration
TABLES:bsak, "Accounting: Secondary Index for Vendors (Cleared Items)
payr, "Payment Medium File
lfa1. "Vendor Master (General Section)
TYPE-POOLS : slis.
* Type Declaration
TYPES : BEGIN OF etab,
bukrs LIKE bsak-bukrs,
augdt LIKE bsak-augdt,
xblnr LIKE bsak-xblnr,
belnr LIKE bsak-belnr,
bldat LIKE bsak-bldat,
lifnr LIKE bsak-lifnr,
name1 LIKE lfa1-name1,
augb1 LIKE bsak-augbl,
rwbtr LIKE payr-rwbtr,
waers LIKE payr-waers,
chect LIKE payr-chect,
zaldt LIKE payr-zaldt,
hbkid LIKE payr-hbkid,
END OF etab.
* Internal Tables
DATA : tab_etab TYPE STANDARD TABLE OF etab,
wa_etab TYPE etab.
* Data Declaration
DATA: wa_fieldcat TYPE slis_fieldcat_alv,
it_fieldcat TYPE slis_t_fieldcat_alv,
wa_event TYPE slis_alv_event,
it_events TYPE slis_t_event,
wa_line TYPE slis_listheader,
it_line TYPE slis_t_listheader,
wa_sort TYPE slis_sortinfo_alv,
it_sort TYPE slis_t_sortinfo_alv.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS s_ccode FOR bsak-bukrs ."OBLIGATORY.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS s_pdate FOR bsak-augdt.
SELECT-OPTIONS s_drence FOR bsak-xblnr.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
PERFORM select.
PERFORM build_fcat.
PERFORM display.
PARAMETERS: p_file LIKE rlgrap-filename DEFAULT 'H:\TESTSAP.xls'.
CALL FUNCTION 'SAP_CONVERT_TO_XLS_FORMAT'
EXPORTING
i_filename = p_file
TABLES
i_tab_sap_data = tab_etab.
if sy-subrc = 0.
Endif.
*---------------------------------------------------------------------*
* FORM build_fcat *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM build_fcat.
wa_fieldcat-fieldname = 'BELNR'.
wa_fieldcat-seltext_m = 'VENDOR INVOICE'.
APPEND wa_fieldcat TO it_fieldcat.
FREE wa_fieldcat.
wa_fieldcat-fieldname = 'AUGDT'.
wa_fieldcat-ref_tabname = 'BSAK'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'PAYMENT DATE'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'BLDAT'.
wa_fieldcat-ref_tabname = 'BSAK'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'VENDOR INVOICE DATE'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'LIFNR'.
wa_fieldcat-ref_tabname = 'BSAK'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'VENDOR NUMBER'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'NAME1'.
wa_fieldcat-ref_tabname = 'LFA1'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'VENDOR NAME'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'AUGBL'.
wa_fieldcat-ref_tabname = 'BSAK'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'PAYMENT DOCUMENT'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'RWBTR'.
wa_fieldcat-ref_tabname = 'PAYR'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'AMOUNT PAID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'WAERS'.
wa_fieldcat-ref_tabname = 'PAYR'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'CURRENCY'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'CHECT'.
wa_fieldcat-ref_tabname = 'PAYR'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'CHECK NUMBER'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ZALDT'.
wa_fieldcat-ref_tabname = 'PAYR'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'CHECK DATE'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'HBKID'.
wa_fieldcat-ref_tabname = 'PAYR'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'BANK'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. " build_fcat
*---------------------------------------------------------------------*
* FORM display *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM display.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE = ' '
i_callback_program = 'ZEXPA'
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_STRUCTURE_NAME =
* IS_LAYOUT =
it_fieldcat = it_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = tab_etab.
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
ENDFORM.
*---------------------------------------------------------------------*
* FORM select *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM select.
SELECT bsak~bukrs
bsak~augdt
bsak~xblnr
bsak~belnr
bsak~bldat
bsak~lifnr
bsak~bschl
bsak~xstov
payr~rwbtr
payr~waers
payr~chect
payr~zaldt
payr~hbkid
FROM bsak
INNER JOIN lfa1 ON bsak~lifnr = lfa1~lifnr
INNER JOIN payr ON bsak~augbl = payr~vblnr
AND bsak~gjahr = payr~gjahr
INTO TABLE tab_etab
WHERE bukrs IN s_ccode
AND
augdt IN s_pdate
AND
xblnr IN s_drence
AND
bsak~bschl = 31
AND
bsak~xstov = ''.
IF sy-subrc EQ 0.
WRITE:/ 'Rows found'.
WRITE:/ 'ROWS=',sy-dbcnt.
ELSE.
WRITE:/ 'no rows found'.
ENDIF.
* Tables declaration
TABLES:bsak, "Accounting: Secondary Index for Vendors (Cleared Items)
payr, "Payment Medium File
lfa1. "Vendor Master (General Section)
TYPE-POOLS : slis.
* Type Declaration
TYPES : BEGIN OF etab,
bukrs LIKE bsak-bukrs,
augdt LIKE bsak-augdt,
xblnr LIKE bsak-xblnr,
belnr LIKE bsak-belnr,
bldat LIKE bsak-bldat,
lifnr LIKE bsak-lifnr,
name1 LIKE lfa1-name1,
augb1 LIKE bsak-augbl,
rwbtr LIKE payr-rwbtr,
waers LIKE payr-waers,
chect LIKE payr-chect,
zaldt LIKE payr-zaldt,
hbkid LIKE payr-hbkid,
END OF etab.
* Internal Tables
DATA : tab_etab TYPE STANDARD TABLE OF etab,
wa_etab TYPE etab.
* Data Declaration
DATA: wa_fieldcat TYPE slis_fieldcat_alv,
it_fieldcat TYPE slis_t_fieldcat_alv,
wa_event TYPE slis_alv_event,
it_events TYPE slis_t_event,
wa_line TYPE slis_listheader,
it_line TYPE slis_t_listheader,
wa_sort TYPE slis_sortinfo_alv,
it_sort TYPE slis_t_sortinfo_alv.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS s_ccode FOR bsak-bukrs ."OBLIGATORY.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS s_pdate FOR bsak-augdt.
SELECT-OPTIONS s_drence FOR bsak-xblnr.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
PERFORM select.
PERFORM build_fcat.
PERFORM display.
PARAMETERS: p_file LIKE rlgrap-filename DEFAULT 'H:\TESTSAP.xls'.
CALL FUNCTION 'SAP_CONVERT_TO_XLS_FORMAT'
EXPORTING
i_filename = p_file
TABLES
i_tab_sap_data = tab_etab.
if sy-subrc = 0.
Endif.
*---------------------------------------------------------------------*
* FORM build_fcat *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM build_fcat.
wa_fieldcat-fieldname = 'BELNR'.
wa_fieldcat-seltext_m = 'VENDOR INVOICE'.
APPEND wa_fieldcat TO it_fieldcat.
FREE wa_fieldcat.
wa_fieldcat-fieldname = 'AUGDT'.
wa_fieldcat-ref_tabname = 'BSAK'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'PAYMENT DATE'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'BLDAT'.
wa_fieldcat-ref_tabname = 'BSAK'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'VENDOR INVOICE DATE'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'LIFNR'.
wa_fieldcat-ref_tabname = 'BSAK'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'VENDOR NUMBER'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'NAME1'.
wa_fieldcat-ref_tabname = 'LFA1'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'VENDOR NAME'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'AUGBL'.
wa_fieldcat-ref_tabname = 'BSAK'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'PAYMENT DOCUMENT'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'RWBTR'.
wa_fieldcat-ref_tabname = 'PAYR'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'AMOUNT PAID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'WAERS'.
wa_fieldcat-ref_tabname = 'PAYR'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'CURRENCY'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'CHECT'.
wa_fieldcat-ref_tabname = 'PAYR'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'CHECK NUMBER'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ZALDT'.
wa_fieldcat-ref_tabname = 'PAYR'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'CHECK DATE'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'HBKID'.
wa_fieldcat-ref_tabname = 'PAYR'.
wa_fieldcat-tabname = 'TAB_ETAB'.
wa_fieldcat-seltext_m = 'BANK'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. " build_fcat
*---------------------------------------------------------------------*
* FORM display *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM display.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE = ' '
i_callback_program = 'ZEXPA'
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_STRUCTURE_NAME =
* IS_LAYOUT =
it_fieldcat = it_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = tab_etab.
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
ENDFORM.
*---------------------------------------------------------------------*
* FORM select *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM select.
SELECT bsak~bukrs
bsak~augdt
bsak~xblnr
bsak~belnr
bsak~bldat
bsak~lifnr
bsak~bschl
bsak~xstov
payr~rwbtr
payr~waers
payr~chect
payr~zaldt
payr~hbkid
FROM bsak
INNER JOIN lfa1 ON bsak~lifnr = lfa1~lifnr
INNER JOIN payr ON bsak~augbl = payr~vblnr
AND bsak~gjahr = payr~gjahr
INTO TABLE tab_etab
WHERE bukrs IN s_ccode
AND
augdt IN s_pdate
AND
xblnr IN s_drence
AND
bsak~bschl = 31
AND
bsak~xstov = ''.
IF sy-subrc EQ 0.
WRITE:/ 'Rows found'.
WRITE:/ 'ROWS=',sy-dbcnt.
ELSE.
WRITE:/ 'no rows found'.
ENDIF.