FUNCTION Y96_LISTOBJECT_TO_EXCEL_BY_HTM.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"       IMPORTING
*"             VALUE(FILENAME) TYPE  C OPTIONAL
*"             VALUE(CONFIRM) TYPE  C DEFAULT 'X'
*"             VALUE(EXEC) TYPE  C DEFAULT 'X'
*"             VALUE(COLOR_OFF) TYPE  C DEFAULT ' '
*"             VALUE(BORDER_OFF) TYPE  C DEFAULT ' '
*"             VALUE(SYMBOL_MODE) TYPE  C DEFAULT '-'
*"             VALUE(CHECKBOX_MODE) TYPE  C DEFAULT '-'
*"             VALUE(ICON_MODE) TYPE  C DEFAULT '-'
*"             VALUE(CELLS_OPTIMIZATION) TYPE  C DEFAULT 'X'
*"             VALUE(NOTCOLSPAN) TYPE  C DEFAULT ' '
*"             VALUE(ROWFILTER_ON) TYPE  C DEFAULT ' '
*"             VALUE(REWRITE) TYPE  C DEFAULT 'C'
*"       TABLES
*"              LISTOBJECT STRUCTURE  ABAPLIST
*"----------------------------------------------------------------------

  SET_PARAM.

  CALL FUNCTION 'GET_REPORT_LISTS'
       EXPORTING
            CALLBACK_FORM    = 'LISTOBJECT_TO_HTML'
            CALLBACK_PROGRAM = 'SAPLY96_LIST_TO_EXCEL'
       TABLES
            LISTOBJECT       = LISTOBJECT
       EXCEPTIONS
            OTHERS           = 1.

  PERFORM SAVE_FILE USING SCR-FNAME SCR-EXEC.
ENDFUNCTION.

FORM LISTOBJECT_TO_HTML
TABLES LIST_PAGES          TYPE SLIST_PAGEDESCR_TAB
       LIST                TYPE SLIST_LIST_TAB
       FMBS                TYPE SLIST_FMBS_TAB
       FMBX                TYPE SLIST_FMBS_TAB
       FSEL                TYPE SLIST_FSEL_TAB
       HYPER_TAGS          TYPE SLIST_HYPERTAGS_TAB.

DATA: FIDO TYPE SLIST_FIDO_TAB.
DATA: HIDE TYPE SLIST_HIDE_TAB.
DATA: HDLN TYPE SLIST_HIDELINE_TAB.

  PERFORM GET_HTML TABLES LIST FMBS FMBX FSEL FIDO HIDE HDLN.
ENDFORM.