如何使用vb.net將數據追加到現有的excel文件？

Question

我有代碼找到現有的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 

Answer 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