如何使用vb.net将数据附加到现有excel文件中？

我有一个在现有excel文件中查找最后一个非空行的代码。我想将数据从5个文本框插入到列中接下来的5个单元格中。我不知道怎么编码。请帮助我，这是我的代码：

With xlWorkSheet
        If EXL.WorksheetFunction.CountA(.Cells) <> 0 Then
            lRow = .Cells.Find(What:="*", _
                          After:=.Range("A2"), _
                          LookAt:=Excel.XlLookAt.xlPart, _
                          LookIn:=Excel.XlFindLookIn.xlFormulas, _
                          SearchOrder:=Excel.XlSearchOrder.xlByRows, _
                          SearchDirection:=Excel.XlSearchDirection.xlPrevious, _
                          MatchCase:=False).Row
        Else
            lRow = 1
        End If

    End With

与xl工作表
如果EXL.WorksheetFunction.CountA（.Cells）为0，则
lRow=.Cells.Find（内容：=“*”_
之后：=.范围（“A2”）_
LookAt:=Excel.XlLookAt.xlPart_
LookIn:=Excel.XlFindLookIn.xlFormulas_
SearchOrder:=Excel.XlSearchOrder.xlByRows_
SearchDirection:=Excel.XlSearchDirection.xlPrevious_
MatchCase:=False）。行
其他的
lRow=1
如果结束
以

这里有两种不同的解决方案。我更喜欢第二个，因为您可以从任何列确定最后一行，如果您愿意，可以将其引用到另一列

Dim nextrow As Integer = excel.Rows.End(XlDirection.xlDown).Row + 1

Dim ws As Worksheet = excel.ActiveSheet
Dim nRow = ws.Range("A" & ws.Rows.Count).End(XlDirection.xlUp).Row + 1

那么，分配一个值所需做的就是：

excel.Range("A" & nRow).Value = "test"
excel.range("B" & nRow).value = "adjacent column"

如果要将其循环到下面的5个单元格，请执行以下操作：

Dim ws As Worksheet = excel.ActiveSheet
Dim lRow = ws.Range("A" & ws.Rows.Count).End(XlDirection.xlUp).Row

For i = 1 To 5
    excel.Range("A" & lRow).Offset(i, 0).Value = "variable here"
Next