*&---------------------------------------------------------------------*

*& Report YCX_021

*&---------------------------------------------------------------------*

*&

*&---------------------------------------------------------------------*

REPORT YCX_021.

INCLUDE OLE2INCL .

*-----------------------------------------------------------------------

*     Global GUI Controls Variables / Structures

*-----------------------------------------------------------------------

*--Data Definition of OLE

DATA: GS_EXCEL          TYPE OLE2_OBJECT ,

      GS_WBOOKLIST      TYPE OLE2_OBJECT ,

      GS_APPLICATION    TYPE OLE2_OBJECT ,

      GS_WBOOK          TYPE OLE2_OBJECT ,

      GS_ACTIVESHEET    TYPE OLE2_OBJECT ,

      GS_SHEETS         TYPE OLE2_OBJECT ,

      GS_NEWSHEET       TYPE OLE2_OBJECT ,

      GS_CELL1          TYPE OLE2_OBJECT ,

      GS_CELL2          TYPE OLE2_OBJECT ,

      GS_CELLS          TYPE OLE2_OBJECT ,

      GS_RANGE          TYPE OLE2_OBJECT ,

      GS_FONT           TYPE OLE2_OBJECT ,

      GS_INTERIOR       TYPE OLE2_OBJECT ,

      GS_COLUMNS        TYPE OLE2_OBJECT ,

      GS_CHARTS         TYPE OLE2_OBJECT ,

      GS_CHART          TYPE OLE2_OBJECT ,

      GS_CHARTTITLE     TYPE OLE2_OBJECT ,

      GS_CHARTTITLECHAR TYPE OLE2_OBJECT ,

      GS_CHARTOBJECTS   TYPE OLE2_OBJECT .

DATA GV_SHEET_NAME() TYPE C .

DATA GV_OUTER_INDEX LIKE SY-INDEX .

DATA GV_INTEX() TYPE C .

DATA GV_LINE_CNTR TYPE I . "line counter

DATA GV_LINNO TYPE I . "line number

DATA GV_COLNO TYPE I . "column number

DATA GV_VALUE TYPE I . "data

*$*$----------------------------------------------------------------$*$*

*$*$                      Selection Screen                          $*$*

*$*$----------------------------------------------------------------$*$*

*-----------------------------------------------------------------------

*                   Selection Screen

*-----------------------------------------------------------------------

PARAMETERS: P_SHEETS TYPE I .

*$*$----------------------------------------------------------------$*$*

*$*$                          Main Program                          $*$*

*$*$----------------------------------------------------------------$*$*

*--------- START-OF-SELECTION ----------

START-OF-SELECTION .

  DO P_SHEETS TIMES .

*--Forming sheet name

    GV_INTEX = SY-INDEX .

    GV_OUTER_INDEX = SY-INDEX .

    CONCATENATE 'Excel Sheet #' GV_INTEX INTO GV_SHEET_NAME .

*--For the first loop, Excel is initiated and one new sheet is added

    IF SY-INDEX =  .

      CREATE OBJECT GS_EXCEL 'EXCEL.APPLICATION' .

      SET PROPERTY OF GS_EXCEL 'Visible' =  .

      GET PROPERTY OF GS_EXCEL 'Workbooks' = GS_WBOOKLIST .

      GET PROPERTY OF GS_WBOOKLIST 'Application' = GS_APPLICATION .

      SET PROPERTY OF GS_APPLICATION 'SheetsInNewWorkbook' =  .

      CALL METHOD OF

          GS_WBOOKLIST

          'Add'        = GS_WBOOK.

      GET PROPERTY OF GS_APPLICATION 'ActiveSheet' = GS_ACTIVESHEET .

      SET PROPERTY OF GS_ACTIVESHEET 'Name' = GV_SHEET_NAME .

*--For the rest of loops, other sheets are added

    ELSE .

      GET PROPERTY OF GS_WBOOK 'Sheets' = GS_SHEETS .

      CALL METHOD OF

          GS_SHEETS

          'Add'     = GS_NEWSHEET.

      SET PROPERTY OF GS_NEWSHEET 'Name' = GV_SHEET_NAME .

    ENDIF .

    GV_LINE_CNTR =  . "line counter

*--Title

*--Selecting cell area to be merged.

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL1

      EXPORTING

        #       =

        #       = .

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL2

      EXPORTING

        #       =

        #       = .

    CALL METHOD OF

        GS_EXCEL

        'Range'  = GS_CELLS

      EXPORTING

        #       = GS_CELL1

        #       = GS_CELL2.

    CALL METHOD OF

        GS_CELLS

        'Select'.

*--Merging

    CALL METHOD OF

        GS_CELLS

        'Merge'.

*--Setting title data

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL1

      EXPORTING

        #       = GV_LINE_CNTR

        #       = .

    SET PROPERTY OF GS_CELL1 'Value' = 'TITLE' .

*--Formatting the title

    GET PROPERTY OF GS_CELL1 'Font' = GS_FONT .

    SET PROPERTY OF GS_FONT 'Underline' =  .

    SET PROPERTY OF GS_FONT 'Bold' =  .

    SET PROPERTY OF GS_CELL1 'HorizontalAlignment' = - .

    GET PROPERTY OF GS_CELL1 'Interior' = GS_INTERIOR .

    SET PROPERTY OF GS_INTERIOR 'ColorIndex' =  .

    SET PROPERTY OF GS_INTERIOR 'Pattern' = - .

    SET PROPERTY OF GS_INTERIOR 'PatternColorIndex' = - .

    GV_LINE_CNTR = GV_LINE_CNTR +  .

*--Writing some additional data for the title

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL1

      EXPORTING

        #       = GV_LINE_CNTR

        #       = .

    SET PROPERTY OF GS_CELL1 'Value' = 'Sheet No' .

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL1

      EXPORTING

        #       = GV_LINE_CNTR

        #       = .

    SET PROPERTY OF GS_CELL1 'Value' = ':' .

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL1

      EXPORTING

        #       = GV_LINE_CNTR

        #       = .

    SET PROPERTY OF GS_CELL1 'Value' = GV_INTEX .

*--Formatting the area of additional data 1

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL1

      EXPORTING

        #       =

        #       = .

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL2

      EXPORTING

        #       = GV_LINE_CNTR

        #       = .

    CALL METHOD OF

        GS_EXCEL

        'Range'  = GS_CELLS

      EXPORTING

        #       = GS_CELL1

        #       = GS_CELL2.

    CALL METHOD OF

        GS_CELLS

        'Select'.

    GET PROPERTY OF GS_CELLS 'Font' = GS_FONT .

    SET PROPERTY OF GS_FONT 'Bold' =  .

*--Formatting the area of additional data 2

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL1

      EXPORTING

        #       =

        #       = .

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL2

      EXPORTING

        #       = GV_LINE_CNTR

        #       = .

    CALL METHOD OF

        GS_EXCEL

        'Range'  = GS_CELLS

      EXPORTING

        #       = GS_CELL1

        #       = GS_CELL2.

    CALL METHOD OF

        GS_CELLS

        'Select'.

    GET PROPERTY OF GS_CELLS 'Columns' = GS_COLUMNS .

    CALL METHOD OF

        GS_COLUMNS

        'AutoFit'.

*--Bordering title data area

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL1

      EXPORTING

        #       =

        #       = .

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL2

      EXPORTING

        #       = GV_LINE_CNTR

        #       = .

    CALL METHOD OF

        GS_EXCEL

        'Range'  = GS_CELLS

      EXPORTING

        #       = GS_CELL1

        #       = GS_CELL2.

    CALL METHOD OF

        GS_CELLS

        'Select'.

    CALL METHOD OF

        GS_CELLS

        'BorderAround'

      EXPORTING

        #             =  "continuous line

        #             = . "thick

*--Putting axis labels

    GV_COLNO =  .

    GV_LINE_CNTR = GV_LINE_CNTR +  .

    GV_LINNO = GV_LINE_CNTR -  .

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL1

      EXPORTING

        #       = GV_LINNO

        #       = .

    SET PROPERTY OF GS_CELL1 'Value' = 'X' .

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL1

      EXPORTING

        #       = GV_LINE_CNTR

        #       = .

    SET PROPERTY OF GS_CELL1 'Value' = 'Y' .

*--Generating some data

    DO  TIMES .

      GV_VALUE = GV_OUTER_INDEX * SY-INDEX *  .

      CALL METHOD OF

          GS_EXCEL

          'Cells'  = GS_CELL1

        EXPORTING

          #       = GV_LINNO

          #       = GV_COLNO.

      SET PROPERTY OF GS_CELL1 'Value' = SY-INDEX .

      CALL METHOD OF

          GS_EXCEL

          'Cells'  = GS_CELL1

        EXPORTING

          #       = GV_LINE_CNTR

          #       = GV_COLNO.

      SET PROPERTY OF GS_CELL1 'Value' = GV_VALUE .

      GV_COLNO = GV_COLNO +  .

    ENDDO .

*--Source data area

    GV_COLNO = GV_COLNO -  .

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL1

      EXPORTING

        #       = GV_LINNO

        #       = .

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL2

      EXPORTING

        #       = GV_LINE_CNTR

        #       = GV_COLNO.

    CALL METHOD OF

        GS_EXCEL

        'Range'  = GS_CELLS

      EXPORTING

        #       = GS_CELL1

        #       = GS_CELL2.

    CALL METHOD OF

        GS_CELLS

        'Select'.

    GET PROPERTY OF GS_APPLICATION 'Charts' = GS_CHARTS .

    CALL METHOD OF

        GS_CHARTS

        'Add'     = GS_CHART.

    CALL METHOD OF

        GS_CHART

        'Activate'.

    SET PROPERTY OF GS_CHART 'ChartType' = '' . "Vertical bar graph

    CALL METHOD OF

        GS_CHART

        'SetSourceData'

      EXPORTING

        #              = GS_CELLS

        #              = .

    SET PROPERTY OF GS_CHART 'HasTitle' =  .

    GET PROPERTY OF GS_CHART 'ChartTitle' = GS_CHARTTITLE .

    GET PROPERTY OF GS_CHARTTITLE 'Characters' = GS_CHARTTITLECHAR .

    SET PROPERTY OF GS_CHARTTITLECHAR 'Text' = 'Sample Graph' .

*--Locate the chart onto the current worksheet

*--Activate current sheet

    CALL METHOD OF

        GS_EXCEL

        'WorkSheets' = GS_ACTIVESHEET

      EXPORTING

        #           = GV_SHEET_NAME.

    CALL METHOD OF

        GS_ACTIVESHEET

        'Activate'.

    CALL METHOD OF

        GS_CHART

        'Location'

      EXPORTING

        #         =

        #         = GV_SHEET_NAME.

*--Reposition the chart on the worksheet (cut&paste)

    CALL METHOD OF

        GS_ACTIVESHEET

        'ChartObjects' = GS_CHARTOBJECTS.

    CALL METHOD OF

        GS_CHARTOBJECTS

        'Select'.

    CALL METHOD OF

        GS_CHARTOBJECTS

        'Cut'.

*--Select new area

    GV_LINE_CNTR = GV_LINE_CNTR +  .

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL1

      EXPORTING

        #       = GV_LINE_CNTR

        #       = .

    CALL METHOD OF

        GS_EXCEL

        'Cells'  = GS_CELL2

      EXPORTING

        #       = GV_LINE_CNTR

        #       = .

    CALL METHOD OF

        GS_EXCEL

        'Range'  = GS_CELLS

      EXPORTING

        #       = GS_CELL1

        #       = GS_CELL2.

    CALL METHOD OF

        GS_CELLS

        'Select'.

    CALL METHOD OF

        GS_ACTIVESHEET

        'Paste'.

  ENDDO.

*--Deallocating memory

  FREE:

  GS_EXCEL, GS_WBOOKLIST, GS_APPLICATION, GS_WBOOK,

  GS_ACTIVESHEET,GS_SHEETS, GS_NEWSHEET, GS_CELL1,

  GS_CELL2, GS_CELLS, GS_RANGE, GS_FONT, GS_INTERIOR,

  GS_COLUMNS, GS_CHARTS, GS_CHART, GS_CHARTTITLE,

  GS_CHARTTITLECHAR, GS_CHARTOBJECTS .

ABAP DEMO ole示例程序的更多相关文章

  1. SAP demo包 示例程序

    在SAP的这个开发类中SABAPDEMOS,存放了N多的demo程序 有空的时候,可以看看.

  2. 小程序-demo：小程序示例-page/api

    ylbtech-小程序-demo:小程序示例-page/api 以下将演示小程序接口能力,具体属性参数详见小程序开发文档. 1. page/component返回顶部 1. a) .js Page({ ...

  3. 小程序-demo：小程序示例-page/component2

    ylbtech-小程序-demo:小程序示例-page/component2 以下将展示小程序官方组件能力,组件样式仅供参考,开发者可根据自身需求自定义组件样式,具体属性参数详见小程序开发文档. 1. ...

  4. 小程序-demo：小程序示例-page/component

    ylbtech-小程序-demo:小程序示例-page/component 以下将展示小程序官方组件能力,组件样式仅供参考,开发者可根据自身需求自定义组件样式,具体属性参数详见小程序开发文档. 1. ...

  5. 小程序-demo：小程序示例-page/common

    ylbtech-小程序-demo:小程序示例-page/common 1.返回顶部 0.     1. 2. pages/common返回顶部 1. -lib --weui.wxss /*! * we ...

  6. 小程序-demo：小程序示例

    ylbtech-小程序-demo:小程序示例     1.返回顶部 0. 1.app.js const openIdUrl = require('./config').openIdUrl App({ ...

  7. 【ABAP系列】SAP ABAP解析XML的示例程序

    公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[ABAP系列]SAP ABAP解析XML的示例 ...

  8. BitCoinJ之Hello World示例程序

    简介 比特币(BitCoin)是一种基于区块链(BlockChain)技术的数字化货币. 本文介绍了使用基于Java语言的BitCoinJ API实现一个简单的收取和支付比特币的示例程序. 开发环境 ...

  9. zigbee学习:示例程序SampleApp中通讯流程

    zigbee学习:示例程序SampleApp中通讯流程 本文博客链接:http://blog.csdn.net/jdh99,作者:jdh,转载请注明. 参考链接: http://wjf88223.bl ...

随机推荐

  1. RestTemplate将字符串以文件的方式上传

    背景 在java后台将内容拼接为字符串,然后使用RestTemplate将字符串以文件的方式上传到指定接口 思路 使用 RestTemplate 时,将字符串封装为字节流,然后上传 代码 /** * ...

  2. go实现多聊天并发 服务端

    package main import ( "fmt" "net" "time")type Client struct { ch chan ...

  3. python - django authenticate 返回结果一直是None

    # 不论怎么测试 authenticate 返回结果一直是None,查了查原因好像是 django 2.1 版本的问题 ( 我用的是 2.1.7) 解决方法: 1. 先导入 from django.c ...

  4. 08 node.js 的使用

    创建包 目录结构 cmd   cd 到当前目录:  \ 执行 npm init //创建一个包 1 2. 3. 4.包的安装 npm install jquery --save npm install ...

  5. CQOI2016 不同的最小割 (最小割树模板)（等价流树的Gusfield构造算法）

    题目 最小割树模板 算法详解及证明见: 2016年国家队候选队员论文 <浅谈无向图最小割问题的一些算法及应用--绍兴一中 王文涛> 3.2节 CODE #include <bits/ ...

  6. python - 使用psutils

    oshelper.py #encoding=utf-8 import psutil import datetime #查看cpu的信息 print u"CPU 个数 %s"%psu ...

  7. php 简单使用redis 队列示例

    public function redisAction(){ $redis = new Redis(); $redis->connect('127.0.0.1', 6379); echo &qu ...

  8. zabbix 内置key说明

    原文参考:https://blog.csdn.net/whs_321/article/details/52939263 一.简介 Zabbix 内置了很多丰富的key,使得我们在添加linux os模 ...

  9. （25）打鸡儿教你Vue.js

    vue-cli // 全局安装 vue-cli npm install --global vue-cli // 创建一个基于 webpack 模板的新项目 vue init webpack my-pr ...

  10. CSS3字体大小rem属性用法

    PX为单位 在Web页面初期制作中,我们都是使用“px”来设置我们的文本,因为他比较精确和固定. 只要页面某元素设置了px字体大小,其子元素/子孙元素未设置字体大小或设置的字体大小css优先级没父元素 ...