以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excel表 删除行的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71231)
--  作者：chenbh_yz
--  发布时间：2015/7/7 18:28:00
--  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

请指教！！
--  作者：大红袍
--  发布时间：2015/7/7 19:09:00
--  

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

 
--  作者：chenbh_yz
--  发布时间：2015/7/7 19:17:00
--  

谢谢！