将REPORT结果画面原封不动下载到EXCEL

bgx5810

REPORT SPOOL.

  DATA:
    PARAMETERS TYPE PRI_PARAMS,
    SPONO      TYPE SY-SPONO.

  CLEAR:
    PARAMETERS，
    SPONO.
   
  PERFORM GET_SPOOL.

  CALL FUNCTION 'RSPO_DOWNLOAD_SPOOLJOB'
  EXPORTING
    ID                           = SPONO
    FNAME                        = 'C:\SPOOL.XLS'
  EXCEPTIONS
    CALL_RETURN_SPOOLJOB_ERROR   = 1
    CALL_GUI_DOWNLOAD_ERROR      = 2
    OTHERS                       = 3.

*&--------------------------------------------------------------------*
*&      Form  GET_SPOOL
*&--------------------------------------------------------------------*
FORM GET_SPOOL.

CALL FUNCTION 'GET_PRINT_PARAMETERS'
  EXPORTING
    IMMEDIATELY                    = ''
    LINE_SIZE                      = '255'
    NEW_LIST_ID                    = 'X'
    NO_DIALOG                      = 'X'
    RELEASE                        = 'X'
  IMPORTING
    OUT_PARAMETERS                 = PARAMETERS
*    VALID                          =
  EXCEPTIONS
    ARCHIVE_INFO_NOT_FOUND         = 1
    INVALID_PRINT_PARAMS           = 2
    INVALID_ARCHIVE_PARAMS         = 3
    OTHERS                         = 4.

  CLEAR SY-PAGNO.

  NEW-PAGE PRINT ON PARAMETERS PARAMETERS
    NO DIALOG.

* 帐票正常输出代码
  。。。。。。。。。。。
  
  NEW-PAGE PRINT OFF.

  SPONO = SY-SPONO.

ENDFORM.    "GET_SPOOL