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

*& 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. Spring框架的核心功能之AOP技术

     技术分析之Spring框架的核心功能之AOP技术 AOP的概述        1. 什么是AOP的技术?        * 在软件业,AOP为Aspect Oriented Programming的 ...

  2. laravel-nestedset：多级无限分类正确姿势

    laravel-nestedset:多级无限分类正确姿势   laravel-nestedset是一个关系型数据库遍历树的larvel4-5的插件包 目录: Nested Sets Model简介 安 ...

  3. learning java identityHashCode

    var S1 = new String("aaaaa"); System.out.println("SI hasCode: " + S1.hashCode()) ...

  4. luogu 3466 对顶堆

    显然答案是将一段区间全部转化成了其中位数这样的话,需要维护一个数据结构支持查询当前所有数中位数对顶堆 用两个堆将 < 中位数的数放入大根堆将 > 中位数的数放入小根堆这样就会存在删除操作 ...

  5. P1902 刺杀大使

    题目描述 伊朗伊斯兰革命卫队(某恐怖组织)正在策划一起刺杀行动,他们的目标是沙特驻美大 使朱拜尔.他们来到了沙特驻美使馆,准备完成此次刺杀,要进入使馆首先必须通过使馆前 的防御迷阵. 迷阵由 n*m ...

  6. 2017.10.2 国庆清北 D2T2 树上抢男主

    /* 我只看懂了求LCA */ #include<iostream> #include<cstring> #include<cstdio> #include< ...

  7. 一个 Object.assign 的误解

    mozilla中对 Object.assign 的解释如下地址: mozilla 其中有说到 注意, Object.assign 会跳过那些值为 null 或 undefined 的源对象. 一直以为 ...

  8. shell编程题（四）

    编译当前目录下的所有.c文件 #!/bin/bash ] ;] 输入参数个数 echo "Please follow up file.c!" echo "eg: ./ma ...

  9. golang-切片copy

    package main import ( "fmt" ) func main() { fmt.Println("-------------") data := ...

  10. os 模块常用方法

    os.remove()删除文件 os.rename()重命名文件 os.walk()生成目录树下的所有文件名 os.chdir()改变目录 os.mkdir/makedirs创建目录/多层目录 os. ...