如何消除ole abap中的空行?

2020-08-26 07:55发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)您好,我想知道如何从OLE AB...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


您好,我想知道如何从OLE ABAP中删除Excel文档中的空行,但不从VBA中删除MACROS。

我已经使用Excel MACRO做到了,它可以工作,但是我想使用ABAP代码来完成,这是我使用的代码:

finrgo = Range(" B65536")。End(xlUp).Row

范围(" B9")。选择

而ActiveCell.Row <= finrgo

如果ActiveCell.Value =""然后

ActiveCell.EntireRow.Delete

finrgo = finrgo-1

其他

ActiveCell.Offset(1,0)。选择

如果结束

参加

感谢您的帮助!

5条回答
太Q了
2020-08-26 08:31 .采纳回答

对您有很大帮助的是在VBA编辑器(ALT + F11)中使用"对象资源管理器"工具(F2)。 它提供您需要的一切。 例如,如何知道常量(xlUp)的实际值,如何知道名称是方法还是属性,方法的形式参数的位置等。

为帮助您从头开始,这是程序的第一行(前提是为测试创建一个Excel文件)。 为了简单起见,我省略了异常处理:

报告。
 TYPE-POOLS ole2。
 DATA excel TYPE ole2_object。
 DATA工作簿TYPE ole2_object。
 DATA工作簿TYPE ole2_object。
 DATA工作表类型ole2_object。
 数据范围1类型ole2_object。
 数据范围2类型ole2_object。
 数据finrgo TYPE i。
 创建对象excel'excel.application'。
 "设置工作簿= excel.workbooks
 excel"工作簿"的调用方法=工作簿。
 " set workbook = workbooks.open(" C:\ Users \ sandra \ Documents \ Classeur1.xlsm")
 调用工作簿的方法'打开'=导出工作簿#1 ='C:\ Users \ sandra \ Documents \ Classeur1.xlsm'。
 "设置工作表= workbook.worksheets(1)
 获取工作簿"工作表"的属性=工作表导出#1 = 1。
 "设置range1 = worksheet.range(" B65536")
 获取工作表的属性'range'= range1 EXPORTING#1 ='B65536'。
 "设置range2 = range1.end(xlUp)
 获取范围1'结束'的属性=范围2导出#1 = -4162。
 " finrgo = range2.row
 获得range2'row'= finrgo的属性。
 工作簿"关闭"的调用方法导出#1 =0。" SaveChanges = false
 excel退出方法。
 写/finrgo。
 

一周热门 更多>