在不知道区域名称的情况下从VB.net写入Excel文件

Imports Microsoft.Office.Interop

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 创建Excel应用程序对象
        Dim excelApp As New Excel.Application()

        ' 打开Excel文件
        Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\path\to\your\excel.xlsx")

        ' 选择第一个工作表
        Dim worksheet As Excel.Worksheet = workbook.Sheets(1)

        ' 获取工作表中的最后一行和最后一列
        Dim lastRow As Integer = worksheet.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Row
        Dim lastColumn As Integer = worksheet.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Column

        ' 在最后一行的下一行插入数据
        Dim newRow As Integer = lastRow + 1

        ' 写入数据
        worksheet.Cells(newRow, 1) = "Data 1"
        worksheet.Cells(newRow, 2) = "Data 2"
        worksheet.Cells(newRow, 3) = "Data 3"

        ' 保存并关闭Excel文件
        workbook.Save()
        workbook.Close()

        ' 退出Excel应用程序
        excelApp.Quit()

        ' 释放Excel对象
        System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)

        MessageBox.Show("数据已成功写入Excel文件。")
    End Sub
End Class