Question

我正在尝试使用以下代码按索引删除行：

Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Try
    xlWorkBook = xlApp.Workbooks.Open(TempRefPath)
    xlWorkSheet = xlWorkBook.Worksheets("w1")

    Dim empty As Integer
    For empty = i + 2 To 2000
        xlWorkSheet.DeleteRow
    Next
    xlWorkBook.Save()
Catch ex As Exception
    MessageBox2(ex.Message, Me.Page)
Finally
    If Not IsNothing(xlWorkBook) Then
        xlWorkBook.Close()
    End If
    xlApp.Quit()
End Try

但找不到函数delete。

Answer 1

没有DeleteRow，如果知道要删除哪一行？您可以在没有循环的情况下执行此操作，以删除行5 =＆gt; 10：

xlWorkSheet.Rows(5 & ":" & 10).Delete()

Answer 2

Dim xlRange1 As Excel.Range = Nothing
xlRange1 = CType(xlWorkSheet.Rows(RowIndex), Excel.Range)
xlRange1.Delete()

来自here。

Answer 3

我发现以下内容也很有效！

xlC1Sheet.Rows("10:19").delete()

xlC1Sheet是您当前使用的工作表。

这将删除第10行中的所有行，直至并包括第19行

Vb.net按索引删除excel行

3 个答案: