以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 为什么会这样(关于excel) (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144678) |
-- 作者:hongye -- 发布时间: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 |
-- 作者:bohe -- 发布时间:2019/12/26 20:03:00 -- 变量类型写错了 single 改与 string |