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