求教：ABAP三栏明细账输出为EXCEL格式

lulu1212

发个能运行的给你 。。



REPORT ztablexls.
********************************************************************
* 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.

MF325690

谢谢你！但是运行不出来，倒数第四行出现错误。
Short text
     Message type " " is unknown.

  错误分析
     Only message types A, E, I, W, S, and x are allowed.

lulu1212

我这没问题啊，
你把它删去试看吧

MF325690

不知道为什么总是不行，删了也不行，还是那个错误！晕！怎么老是这样啊，程序在别人哪里可以运行但是到我这里就运行不了。

awarecan

LIST可以存成Excel，标准功能呀。

System->List->Save->Local Files

MF325690

保存不了。Local Files显示灰色。

hi_lisa

不是我要的哎

ytfsrs2008

这个问题最好不要用OLE来做，运行效率太差。