- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 为什么会这样（关于excel） (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144678)
-- 发布时间：2019/12/26 19:49:00
-- 为什么会这样（关于excel）
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
-- 发布时间：2019/12/26 20:03:00
--
变量类型写错了 single 改与 string