主题：excel表 删除行的问题

请问老师：

我需要删除excel表的全部行，只保留列标题行， 在选定参数不知怎样写多行参数！

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

Dim RowEnd As Integer = Rg.Cells(Rg.Count).Row

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

请指教！！

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

谢谢！