 加好友  发短信
等级：超级版主
帖子：107783
积分：548260
威望：0
精华：9
注册：2015/6/24 9:21:00
|
 Post By：2015/8/22 11:21:00 [只看该作者]
Dim App As New MSExcel.ApplicationDim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)Dim Rg As MSExcel.Range = Ws.Rows("1:3")'选定多行Rg.Delete(MSExcel.XlDirection.xlUp) '下面的单元格上移Rg = Ws.Columns("D:F") '选定多列Rg.Delete(MSExcel.XlDirection.xlToLeft) '右面的单元格左移App.Quit
|
|
