ABAP DEMO ole示例程序

*&---------------------------------------------------------------------*
*& 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 .