ABAP Akte Prozeß

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

---

Downloading zum Excel

TABELLEN: USR03, DD02L.
DATEN: ZX030L MÖGEN X030L.
DATEN FANGEN VON ZDFIES AUFTRETEN 0 AN.
STRUKTUR DFIES EINSCHLIESSEN.
DATEN-ENDE VON ZDFIES.
DATEN: VON FLDITAB ANFANGEN AUFTRITT 0,
FLDNAME (11) ART C,
ENDE VON FLDITAB.
DATEN ITABUSR03 WIE USR03 TRETEN 0 MIT ÜBERSCHRIFT-LINIE AUF.
DATEN TNAME MÖGEN DD02L-TABNAME.
* VON USR03 IN TABELLE ITABUSR03 VORWÄHLEN.
TNAME = „USR03“.
GETFIELEDS DURCHFÜHREN.
SHOW123 DURCHFÜHREN.

GETFIELEDS FORMS.

FUNKTION „GET_FIELDTAB“ BENENNEN
EXPORTIEREN
LANGU = SY-LANGU
NUR = RAUM
TABNAME = TNAME
WITHTEXT = „IMPORTIERENDES X“
ÜBERSCHRIFT = ZX030L
TABELLEN
FIELDTAB = ZDFIES
AUSNAHMEN
INTERNAL_ERROR = 01
NO_TEXTS_FOUND = 02
TABLE_HAS_NO_FIELDS = 03
TABLE_NOT_ACTIV = 04.
FALL SY-SUBRC.
WENN 0.
SCHLEIFE AN ZDFIES.
FLDITAB-FLDNAME = ZDFIES-FIELDNAME.
FLDITAB HINZUFÜGEN.
ENDLOOP.
WENN ANDERE.
ANZEIGE IDENTIFIKATION SY-MSGID ART SY-MSGTY ZAHL SY-MSGNO
mit SY-SUBRC.
ENDCASE.

ENDFORM.

SHOW123 FORMS.

FUNKTION „EXCEL_OLE_STANDARD_DAT“ BENENNEN
EXPORTIEREN
FILE_NAME = „C:\USR03.XLS“
DATA_SHEET_NAME = „BENUTZER-LISTE“
TABELLEN
DATA_TAB = ITABUSR03
FIELDNAMES = FLDITAB
AUSNAHMEN
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
ANDERE = 9.
WENN SY-SUBRC <> 0.
ANZEIGE IDENTIFIKATION SY-MSGID ART SY-MSGTY ZAHL SY-MSGNO
MIT SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

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

---