ole2_object 单元格复制域填充

Dear 丶 2024-04-17 22:58 72阅读 0赞

DATA: gv\_fname TYPE string.  
DATA: gs\_excel    TYPE ole2\_object, *"excel*  
      gv\_excel    TYPE ole2\_object, *"excel*  
      gs\_sheet    TYPE ole2\_object,      *"sheet*  
      gs\_workbook TYPE ole2\_object,      *"work book list*  
      gs\_range    TYPE ole2\_object,      *"rang*  
      gs\_range2    TYPE ole2\_object,      *"rang*  
      gs\_cell     TYPE ole2\_object,  
      gs\_cell2     TYPE ole2\_object,  
      gv\_cell1    TYPE ole2\_object,  
      gv\_cell2    TYPE ole2\_object,  
  
      gs\_font     TYPE ole2\_object,  
      gs\_interior TYPE ole2\_object.

填充

PERFORM frm\_frm\_fill\_cell\_data1 USING  lv\_row   3  gs\_out\-mblnr.

FORM frm\_frm\_fill\_cell\_data1  USING u\_row  
                            u\_col  
                            u\_value.  
  DATA: lv\_value TYPE string.  
  DATA: lv\_row TYPE i,  
        lv\_col TYPE i.  
  lv\_row = u\_row.  
  lv\_col = u\_col.  
  lv\_value = u\_value.  
  IF u\_value < 0.  
    CALL FUNCTION 'CLOI\_PUT\_SIGN\_IN\_FRONT'  
      CHANGING  
        value = lv\_value.  
  ENDIF.  
  
*\*  lv\_value = u\_value.*  
  CALL METHOD OF gs\_excel 'CELLS' = gs\_cell  
    EXPORTING  
    \#1 = lv\_row  
    \#2 = lv\_col.  
  
  
  PERFORM  frm\_font\_header   USING 0 '10'.  
  
  SET PROPERTY OF gs\_cell   'VALUE' = u\_value.  
  
  
  FREE OBJECT gs\_cell.  
ENDFORM.

复制

从第5行复制到31行

CALL METHOD OF gs\_range2 'PASTESPECIAL' *"**粘贴 这个最重要*

![20190902170513805.png][]

![2019090217053224.png][]

PERFORM frm\_frm\_cell\_copy  USING 5 1 5 11 .

FORM frm\_frm\_cell\_copy  USING u\_row1  
                               u\_col1  
                               u\_row2  
                               u\_col2 .  
  
  
  
  DATA: lv\_row1 TYPE i,  
        lv\_col1 TYPE i.  
  DATA: lv\_row2 TYPE i,  
        lv\_col2 TYPE i.  
  lv\_row1 = u\_row1.  
  lv\_col1 = u\_col1.  
  lv\_row2 = u\_row2.  
  lv\_col2 = u\_col2.  
  
  CALL METHOD OF gs\_excel 'CELLS' = gs\_cell  *"**起始单元格*  
  EXPORTING  
  \#1 = lv\_row1  
  \#2 = lv\_col1.  
  
  CALL METHOD OF gs\_excel 'CELLS' = gs\_cell2  *"**终止单元格*  
 EXPORTING  
 \#1 = lv\_row2  
 \#2 = lv\_col2.  
  
  CALL METHOD OF gs\_excel 'Range' = gs\_range   *"**生成区域*  
   EXPORTING  
     \#1 = gs\_cell  
     \#2 = gs\_cell2.  
  
  
  CALL METHOD OF gs\_range 'Select' . *"**选中区域*  
  CALL METHOD OF gs\_range 'Copy' .  
  
  
  CALL METHOD OF gs\_excel 'CELLS' = gv\_cell1  *"**起始单元格*  
 EXPORTING  
 \#1 = 31  
 \#2 = 1.  
  
  CALL METHOD OF gs\_excel 'CELLS' = gv\_cell2  *"**终止单元格*  
 EXPORTING  
 \#1 = 31  
 \#2 = 11.  
  
*\**  
  CALL METHOD OF gs\_excel 'Range' = gs\_range2  *"**生成区域*  
   EXPORTING  
     \#1 = gv\_cell1  
     \#2 = gv\_cell1.  
  
  
  
*\*  CALL METHOD OF gs\_range2 'Select' . "**选中区域*  
  CALL METHOD OF gs\_range2 'PASTESPECIAL' *"**粘贴*  
    . *"**复制*  
  
  FREE OBJECT gs\_cell.  
  FREE OBJECT gs\_cell2 .  
  FREE OBJECT gs\_range.  
  FREE OBJECT gv\_cell1.  
  FREE OBJECT gv\_cell2.  
  FREE OBJECT gs\_range2.  
  
  
  
ENDFORM .

[20190902170513805.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/17/d2b9e0c342964f0fb61b86e0a1f4491a.png
[2019090217053224.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/17/d01c21af27de4546a3686bd626789f15.png