Chinaunix首页 | 论坛 | 博客
  • 博客访问: 23151
  • 博文数量: 6
  • 博客积分: 112
  • 博客等级: 民兵
  • 技术积分: 55
  • 用 户 组: 普通用户
  • 注册时间: 2012-11-03 18:05
文章分类
文章存档

2012年(6)

我的朋友

分类: IT业界

2012-11-03 20:24:58

  SPAN { font-family: "Fixedsys"; font-size: 10pt; color: #000000; background: #C7EDCC; } .L1S31 { font-style: italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } *&---------------------------------------------------------------------*
*& Report  ZTEST8
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST8.
TABLES:SBOOK.

DATA GT_TAB LIKE TABLE OF SBOOK.

  pARAMETERS: p_file LIKE rlgrap-filename DEFAULT 'C:\test4.xls'.

START-OF-SELECTION.
  PERFORM frm_get_data.
  PERFORm frm_tab_to_xls.
*&---------------------------------------------------------------------*
*&      Form  frm_get_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form frm_get_data.
*  SELECT * INTO TABLE GT_ITA FROM SBOOK .
  SELECT * INTO TABLE GT_TAB FROM SBOOK UP TO 10 ROWS.
ENDFORM.                    "frm_get_data

*&---------------------------------------------------------------------*
*&      Form  frm_tab_to_xls
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form frm_tab_to_xls.

  CALL FUNCTION 'SAP_CONVERT_TO_XLS_FORMAT'
    EXPORTING
      i_filename     = p_file
    TABLES
      i_tab_sap_data = GT_TAB.


ENDFORM.                    "frm_tab_to_xls
阅读(548) | 评论(0) | 转发(0) |
0

上一篇:没有了

下一篇:动态更改选择界面选择文本

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