主题：excel表 删除行的问题

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange

Dim RowEnd As Integer = Rg.Rows.count

Dim Rgp As MSExcel.Range = Ws.Rows("2:" & RowEnd)'选定多行
Rgp.Delete(MSExcel.XlDirection.xlUp) '下面的单元格上移
App.Visible = True