VB.net Excel对象写入

Imports Microsoft.Office.Interop

Public Class ExcelWriter
    Public Sub WriteDataToExcel(data As List(Of String), filePath As String)
        ' 创建Excel应用程序对象
        Dim excelApp As New Excel.Application()

        ' 打开Excel文件
        Dim workbook As Excel.Workbook = excelApp.Workbooks.Open(filePath)

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

        ' 将数据写入Excel单元格
        For i As Integer = 0 To data.Count - 1
            worksheet.Cells(i + 1, 1) = data(i)
        Next

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

        ' 释放Excel对象
        excelApp.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)
    End Sub
End Class