VB.NET excel工作表写入下一行

在VB.NET中，你可以使用Microsoft.Office.Interop.Excel库来操作Excel工作簿和工作表。下面是一个简单的示例，展示如何向工作表的下一行添加数据：

Imports Microsoft.Office.Interop.Excel

Public Sub WriteToNextRow(data As String, worksheetName As String, workbookPath As String)
    ' 加载Excel应用
    Dim excelApp As New Application()
    Dim workbook As Workbook = excelApp.Workbooks.Open(workbookPath)
    Dim worksheet As Worksheet = workbook.Sheets(worksheetName)

    ' 获取当前行数
    Dim currentRowIndex As Integer = worksheet.Cells.SpecialCells(xlCellTypeLastCell).Row + 1

    ' 向下一行写入数据
    worksheet.Cells(currentRowIndex, 1) = data ' 假设我们只写入A列的数据

    ' 保存并关闭工作簿
    workbook.Save()
    workbook.Close()

    ' 关闭Excel应用
    excelApp.Quit()
End Sub

在这个例子中，`data`是要写入单元格的内容，`worksheetName`是你想要操作的工作表名称，`workbookPath`是包含工作簿的文件路径。