Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7188905
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类:

2007-12-12 22:00:21

REPORT  zrs08056        .

TABLES: t001,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 itabt001 LIKE t001 OCCURS 0 WITH HEADER LINE.
DATA tname LIKE dd02l-tabname.

START-OF-SELECTION.
  SELECT * FROM t001 INTO TABLE itabt001.
  tname = 'T001'.
  PERFORM getfieleds.
  PERFORM showdata.

*&---------------------------------------------------------------------*
*&      Form  GETFIELEDS
*&---------------------------------------------------------------------*
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.                    "GETFIELEDS

*&---------------------------------------------------------------------*
*&      Form  SHOWdata
*&---------------------------------------------------------------------*
FORM showdata.
  CALL FUNCTION 'EXCEL_OLE_STANDARD_DAT'
    EXPORTING
      file_name                 = 'C:\T001.XLS'
      data_sheet_name           = 'USER LIST'
    TABLES
      data_tab                  = itabt001
      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.           

阅读(4306) | 评论(0) | 转发(0) |
0

上一篇:FIELD-SYMBOLS CASTING

下一篇:测试事件的发生

给主人留下些什么吧!~~