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

---