miércoles, 5 de enero de 2011

Bajar una tabla interna a Excel

DATA texto(30) TYPE c.
CONCATENATE 'c:\' sy-uzeit 'EXCEL.DAT' INTO texto.

CALL FUNCTION 'WS_EXCEL'
EXPORTING
filename = texto "'c:\EXCEL.DAT'

TABLES
data = i_t."data = i_sel.

IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

No hay comentarios: