Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\工资\20191001.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rt As MSExcel.Range = Ws.UsedRange
Dim r As Single = CStr(Rt.Rows.Count + 3)
Dim s As Single = "A2:D" &r
Dim w As Single = "1:" &r
MessageBox.Show(r)
MessageBox.Show(s)
MessageBox.Show(w)
Dim Rs As MSExcel.Range = Ws.Range(s)
Rs.Cut(Ws.Range("F44"))
Dim Rg As MSExcel.Range = Ws.Rows(w)'选定多行
Rg.Delete(MSExcel.XlDirection.xlUp) '下面的单元格上移
Rg = Ws.Columns("A:E") '选定多列
Rg.Delete(MSExcel.XlDirection.xlToLeft) '右面的单元格左移
App.Visible = True
此主题相关图片如下：01.jpg
加好友 
发短信
Post By：2019/12/26 19:49:00 [只看该作者]
