ABAP-OLE复制行和复制SHEET

 1 DATA lc_range TYPE ole2_object.
 2 DATA lv_sheet TYPE ole2_object.
 3 DO 2 TIMES.
 4   CALL METHOD OF lv_sheet 'Rows' = lc_range
 5     EXPORTING #1 = 7.
 6   CALL METHOD OF lc_range 'Copy'.  "COPY第6行插入一个新行
 7   CALL METHOD OF lv_sheet 'Rows' = lc_range
 8     EXPORTING #1 = 7 .
 9   CALL METHOD OF lc_range 'Insert'.
10   CALL METHOD OF lc_range 'ClearContents'. "是否需要清空Cell
11 
12 ENDDO .
13 
14 CALL METHOD OF lv_sheet 'copy'
15   EXPORTING
16     #1 = lv_sheet.
17 
18 SET PROPERTY OF lv_sheet 'name' = 'hhh'.
19 CALL METHOD OF lv_sheet 'ACTIVATE'.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值