Processo da lima de ABAP
A D V E R T I S E M E N T
Downloading ao Excel TABELAS: USR03, DD02L.
DADOS: ZX030L GOSTAM DE X030L.
OS DADOS COME�AM DE ZDFIES OCORREM 0.
INCLUIR A ESTRUTURA DFIES.
FIM DOS DADOS DE ZDFIES.
DADOS: COME�AR DE FLDITAB OCORRE 0,
TIPO C DE FLDNAME (11),
FIM DE FLDITAB.
OS DADOS ITABUSR03 COMO USR03 OCORREM 0 COM LINHA DO ENCABE�AMENTO.
OS DADOS TNAME GOSTAM DE DD02L-TABNAME.
SELECIONAR * DE USR03 NA TABELA ITABUSR03.
TNAME = �USR03�.
EXECUTAR GETFIELEDS.
EXECUTAR SHOW123.
DAR FORMA A GETFIELEDS.
CHAMAR A FUN��O �GET_FIELDTAB�
EXPORTAR
LANGU = SY-LANGU
SOMENTE = ESPA�O
TABNAME = TNAME
WITHTEXT = �X� QUE IMPORTA
ENCABE�AMENTO = ZX030L
TABELAS
FIELDTAB = ZDFIES
EXCE��ES
INTERNAL_ERROR = 01
NO_TEXTS_FOUND = 02
TABLE_HAS_NO_FIELDS = 03
TABLE_NOT_ACTIV = 04.
CASO SY-SUBRC.
QUANDO 0.
LA�O EM ZDFIES.
FLDITAB-FLDNAME = ZDFIES-FIELDNAME.
ADICIONAR FLDITAB.
ENDLOOP.
QUANDO OUTROS.
TIPO N�MERO SY-MSGNO DO ID SY-MSGID DA MENSAGEM DE SY-MSGTY
com SY-SUBRC.
ENDCASE.
ENDFORM.
DAR FORMA A SHOW123.
CHAMAR A FUN��O �EXCEL_OLE_STANDARD_DAT�
EXPORTAR
FILE_NAME = �C:\USR03.XLS�
DATA_SHEET_NAME = DE �LISTA USU�RIO�
TABELAS
DATA_TAB = ITABUSR03
FIELDNAMES = FLDITAB
EXCE��ES
FILE_NOT_EXIST = 1
FILENAME_EXPECTED = 2
COMMUNICATION_ERROR = 3
OLE_OBJECT_METHOD_ERROR = 4
OLE_OBJECT_PROPERTY_ERROR = 5
INVALID_FILENAME = 6
INVALID_PIVOT_FIELDS = 7
DOWNLOAD_PROBLEM = 8
OUTROS = 9.
SE SY-SUBRC <> 0.
TIPO N�MERO SY-MSGNO DO ID SY-MSGID DA MENSAGEM DE SY-MSGTY
COM SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.
A D V E R T I S E M E N T
Discussion Center
