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'.
ABAP OLE复制行和复制SHEET
最新推荐文章于 2024-09-25 09:58:17 发布
文章描述了一段使用ExcelVBA宏进行操作的过程,包括从lc_range复制数据到lv_sheet,插入新行,清空单元格,以及复制sheet并重命名。
696

被折叠的 条评论
为什么被折叠?



