*&---------------------------------------------------------------------*
*& 读表中的数据放进excel中,不在界面上显示.
*& Function: DOWNLOAD
*&---------------------------------------------------------------------*
DATA: FNAME(128),
FTYPE(3),
FSIZE TYPE I.
TYPES: BEGIN OF LINE,
COL1 TYPE I,
COL2 TYPE I,
END OF LINE.
DATA: TAB TYPE Table of LINE,
LIN TYPE LINE.
DO 5 TIMES.
LIN-COL1 = SY-INDEX.
LIN-COL2 = SY-INDEX ** 2.
APPEND LIN TO TAB.
ENDDO.
CALL FUNCTION 'DOWNLOAD'
EXPORTING
CODEPAGE = 'IBM'
FILENAME = 'd:/saptest.xls'
FILETYPE = 'DAT'
ITEM = 'Test for Excel File'
IMPORTING
ACT_FILENAME = FNAME
ACT_FILETYPE = FTYPE
FILESIZE = FSIZE
TABLES
DATA_TAB = TAB
EXCEPTIONS
INVALID_FILESIZE = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3.
WRITE: 'SY-SUBRC :', SY-SUBRC,
/ 'Name :', (60) FNAME,
/ 'Type :', FTYPE,
/ 'Size :', FSIZE.