ole2_object 单元格复制域填充

Dear 丶 2024-04-17 22:58 165阅读 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, 

  1.   gs\_font     TYPE ole2\_object,  
  2.   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 .

发表评论

表情：
评论列表 （有 0 条评论，165人围观）

还没有评论，来说两句吧...

相关阅读

    相关 填充合并单元格

    在空白工作簿里单击【数据】→【新建查询】→【从工作簿】， 找到要填充合并单元格的文件，根据提示导入数据查询编辑器。 按住Ctrl键不放，单击要处理的列标，依次单击【转换】→

    你的名字你的名字/ 0 赞/ 354 阅读

    相关 C# 复制Excel单元格格式

    本文将介绍通过C\ 复制Excel单元格格式的方法，包括复制单元格中的字体、字号、字体加粗、倾斜、单元格背景色、字体颜色、单元格数字格式、单元格文字方向、文字旋转、下划线、单元

    淡淡的烟草味﹌淡淡的烟草味﹌/ 0 赞/ 797 阅读