VB.NET 打开excel表格继续写入下一行内容

在VB.NET中，你可以使用Microsoft.Office.Interop.Excel库来操作Excel文件并添加新的行。以下是一个简单的示例，展示如何打开一个现有工作簿，选择一个工作表，并向其中写入新的一行：

Imports Microsoft.Office.Interop.Excel

Public Sub WriteToExcel()
    ' 创建Excel应用对象
    Dim excelApp As New Application
    Try
        ' 激活应用程序，如果它已经运行
        excelApp.Visible = True

        ' 加载Excel文件，如果文件不存在会创建一个新的
        Dim workbook As Workbook = excelApp.Workbooks.Open("C:\path\to\your\file.xlsx")

        ' 获取工作簿的第一个工作表
        Dim worksheet As Worksheet = workbook.Sheets(1) ' 如果索引从0开始，这里就是"Sheet1"

        ' 写入新行的数据，假设我们有列标题在A1到A4
        Dim newRow(4) As Object
        newRow(0) = "单元格A1的内容"
        newRow(1) = "单元格B1的内容"
        newRow(2) = "单元格C1的内容"
        newRow(3) = "单元格D1的内容"
        
        ' 向最后一行追加数据，Excel的行数从1开始计数
        worksheet.Cells(worksheet.Rows.Count, "A").End(xlUp).Offset(1, 0) = newRow(0)
        worksheet.Cells(worksheet.Rows.Count, "B").End(xlUp).Offset(1, 0) = newRow(1)
        worksheet.Cells(worksheet.Rows.Count, "C").End(xlUp).Offset(1, 0) = newRow(2)
        worksheet.Cells(worksheet.Rows.Count, "D").End(xlUp).Offset(1, 0) = newRow(3)

        ' 提交更改并保存
        workbook.Save()
    Catch ex As Exception
        Console.WriteLine("Error: " & ex.Message)
    Finally
        ' 关闭工作簿并退出应用
        workbook.Close()
        excelApp.Quit()
    End Try
End Sub