ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 将内表内容输出到EXCEL文档并立即将其打开

将内表内容输出到EXCEL文档并立即将其打开

原创 Linux操作系统 作者:hzq2010 时间:2011-05-03 22:07:41 0 删除 编辑

http://space.itpub.net/166523/viewspace-217127

  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style. italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } TABLES: ekpo,DD02L.

DATA: ZX030L LIKE X030L.

DATA BEGIN OF ZDFIES OCCURS 0.
     INCLUDE STRUCTURE DFIES.
DATA END OF ZDFIES.

DATABEGIN OF FLDITAB OCCURS 0,
FLDNAME(11TYPE C,
      END OF FLDITAB.

*DATA ITABUSR03 LIKE ekpo OCCURS 0 WITH HEADER LINE.
DATA :BEGIN OF ITABUSR03 OCCURS 0,
      mandt(6),
      ebeln(16),
      ebelp(8),
*      KTMNG(15),
      END OF ITABUSR03.

DATA TNAME LIKE DD02L-TABNAME.

select mandt ebeln ebelp FROM ekpo UP TO 1 ROWS INTO CORRESPONDING FIELDS OF  TABLE ITABUSR03.

TNAME = 'EKPO'.

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.
FLDITAB-FLDNAME = '客户端'.APPEND FLDITAB.
FLDITAB-FLDNAME = '采购凭证'.APPEND FLDITAB.
FLDITAB-FLDNAME = '项目号'.APPEND FLDITAB.
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.

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/23495244/viewspace-694377/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2010-03-11

  • 博文量
    196
  • 访问量
    172125