- 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=185865)
-- 发布时间：2023/3/22 9:43:00
-- 如何删除excel表的行
Rg= Ws.cells(5,5)\'以这个指定的单元格为基准
Rg.EntireColumn.Delete(MSExcel.XlDirection.xlup) \'右面的单元格左移
这个代码不起作用
-- 发布时间：2023/3/22 9:47:00
--
利用Delete方法，同时结合EntireRow和EntireColumn属性，可删除整行和整列。如：
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("A10")\'以这个指定的单元格为基准
Rg.EntireColumn.Delete(MSExcel.XlDirection.xlToLeft) \'右面的单元格左移
App.Visible = True
-- 发布时间：2023/3/22 10:01:00
--
Rg= Ws.cells(5,5)\'以这个指定的单元格为基准，是不是这个代码不对？ |
-- 发布时间：2023/3/22 10:11:00
--
http://www.foxtable.com/webhelp/topics/2121.htm，从【动态引用单元格】开始往下看
-- 发布时间：2023/3/22 10:57:00
--
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open("d:\\test.xls")
Dim ws As MSExcel.WorkSheet
ws = Wb.WorkSheets("excel") \'被粘贴表
Dim n As Integer = ws.UsedRange.Rows.Count - 1
Dim rg As MSExcel.Range \'= ws.Cells(n, 1)
app.DisplayAlerts = False
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") \'被复制表
Dim Rg2 As MSExcel.Range = Ws2.UsedRange
Dim hs As Integer = Rg2.Rows.count
For i As Integer = 1 To hs
rg = ws.Cells(n, 1)
\' Rg.EntireRow.Insert(MSExcel.XlInsertShiftDirection.xlShiftDown)\'在基准单元格上面插入一行
Next
rg2.Copy
rg = ws.Cells(n - 1, 1)
rg.PasteSpecial()
n = ws.UsedRange.Rows.Count
\'messagebox.show(n)
\'Rg = Ws.cells(n - 1, 1)\'以这个指定的单元格为基准
\'Rg.EntireColumn.Delete(MSExcel.XlDirection.xlup) \'右面的单元格左移
\'Ws2.Delete
Wb.Save
app.Visible = True
运行上述代码后，如何删除第三行
-- 发布时间：2023/3/22 10:57:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.xls |
-- 发布时间：2023/3/22 11:12:00
--
Ws.Range("A3").EntireRow.Delete(MSExcel.XlDirection.xlup)
-- 发布时间：2023/3/22 11:19:00
--
ok