Downloading to Excel REPORT ztablexls. ******************************************************************** * Developer : S.Srini. * Location : Chennai, * : Tamil Nadu, * : India. * Date : 3/10/2001. ******************************************************************** * TESTED - MS EXCEL 97 * NOT RECOMMENDED FOR LENGTHY OUTPUT AND LARGE DATA TABLE BROWSING ******************************************************************** TABLES: USR03,DD02L. DATA: ZX030L LIKE X030L. DATA BEGIN OF ZDFIES OCCURS 0. INCLUDE STRUCTURE DFIES. DATA END OF ZDFIES. DATA: BEGIN OF FLDITAB OCCURS 0, FLDNAME(11) TYPE C, END OF FLDITAB. DATA ITABUSR03 LIKE USR03 OCCURS 0 WITH HEADER LINE. DATA TNAME LIKE DD02L-TABNAME. SELECT * FROM USR03 INTO TABLE ITABUSR03. TNAME = 'USR03'. PERFORM GETFIELEDS. PERFORM SHOW123. ******************************************** FORM GETFIELEDS. CALL FUNCTION 'GET_FIELDTAB' EXPORTING LANGU = SY-LANGU ONLY = SPACE TABNAME = TNAME WITHTEXT = 'X' IMPORTING HEADER = ZX030L TABLES FIELDTAB = ZDFIES EXCEPTIONS INTERNAL_ERROR = 01 NO_TEXTS_FOUND = 02 TABLE_HAS_NO_FIELDS = 03 TABLE_NOT_ACTIV = 04. CASE SY-SUBRC. WHEN 0. LOOP AT ZDFIES. FLDITAB-FLDNAME = ZDFIES-FIELDNAME. APPEND FLDITAB. ENDLOOP. WHEN OTHERS. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO with SY-SUBRC. ENDCASE. ENDFORM. *********************************** FORM SHOW123. CALL FUNCTION 'EXCEL_OLE_STANDARD_DAT' EXPORTING FILE_NAME = 'C:USR03.XLS' DATA_SHEET_NAME = 'USER LIST' TABLES 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 OTHERS = 9. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM.
ฝากข้อความหลังไมค์
Rss Feed
ผู้ติดตามบล็อก : 12 คน [
555
ป่ะจะเที่ยงแล้ว
หาอะไรอร่อยๆกินกันดีกว่า...