Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\1.xls") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) For i As Integer = ws.UsedRange.Rows.Count To 1 Step -1 If ws.Cells(i, 1).Text = "abc" Then ws.Cells(i, 1).delete(MSExcel.XlDirection.xlUp) End If Next App.Visible = True 用上述代码能够删除行,不过执行上述代码后其他的代码失效了,要重新打开项目才有用。
求助是否有其他代码能够删除EXCEL的行,谢谢! |