Processus de dossier d'ABAP

A D V E R T I S E M E N T

---

T�l�chargement � l'Excel

TABLEAUX : USR03, DD02L.
DONN�ES : ZX030L AIMENT X030L.
LES DONN�ES COMMENCENT DE ZDFIES SE PRODUISENT 0.
INCLURE LA STRUCTURE DFIES.
FIN DE DONN�ES DE ZDFIES.
DONN�ES : COMMENCER DE FLDITAB SE PRODUIT 0,
TYPE C DE FLDNAME (11),
FIN DE FLDITAB.
LES DONN�ES ITABUSR03 COMME USR03 SE PRODUISENT 0 AVEC LA LIGNE D'EN-T�TE.
LES DONN�ES TNAME AIMENT DD02L-TABNAME.
CHOISIR * � PARTIR D'USR03 DANS LE TABLEAU ITABUSR03.
TNAME = � USR03 �.
EX�CUTER GETFIELEDS.
EX�CUTER SHOW123.

FORMER GETFIELEDS.

APPELER LA FONCTION � GET_FIELDTAB �
EXPORTATION
LANGU = SY-LANGU
SEULEMENT = L'ESPACE
TABNAME = TNAME
WITHTEXT = � X � IMPORTANT
EN-T�TE = ZX030L
TABLEAUX
FIELDTAB = ZDFIES
EXCEPTIONS
INTERNAL_ERROR = 01
NO_TEXTS_FOUND = 02
TABLE_HAS_NO_FIELDS = 03
TABLE_NOT_ACTIV = 04.
CAS SY-SUBRC.
QUAND 0.
BOUCLE � ZDFIES.
FLDITAB-FLDNAME = ZDFIES-FIELDNAME.
APPOSER FLDITAB.
ENDLOOP.
QUAND D'AUTRES.
TYPE NOMBRE SY-MSGNO DE L'IDENTIFICATION SY-MSGID DE MESSAGE DE SY-MSGTY
avec SY-SUBRC.
ENDCASE.

ENDFORM.

FORMER SHOW123.

APPELER LA FONCTION � EXCEL_OLE_STANDARD_DAT �
EXPORTATION
FILE_NAME = � C:\USR03.XLS �
DATA_SHEET_NAME = � LISTE UTILISATEURS �
TABLEAUX
DATA_TAB = ITABUSR03
FIELDNAMES = FLDITAB
EXCEPTIONS
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
D'AUTRES = 9.
SI SY-SUBRC <> 0.
TYPE NOMBRE SY-MSGNO DE L'IDENTIFICATION SY-MSGID DE MESSAGE DE SY-MSGTY
AVEC SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

ENDFORM.
A D V E R T I S E M E N T

---