如何将VB.net中列表框中选定的项目粘贴到excel工作表中？

Dim excelApp As New Excel.Application
Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\path\to\your\workbook.xlsx")
Dim worksheet As Excel.Worksheet = workbook.Sheets("Sheet1")

Dim selectedItems As New List(Of String)
For Each item As Object In ListBox1.SelectedItems
    selectedItems.Add(item.ToString())
Next

For i As Integer = 0 To selectedItems.Count - 1
    worksheet.Cells(i + 1, 1).Value = selectedItems(i)
Next

workbook.Save()
workbook.Close()
excelApp.Quit()

Imports Excel = Microsoft.Office.Interop.Excel

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim excelApp As New Excel.Application
    Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\path\to\your\workbook.xlsx")
    Dim worksheet As Excel.Worksheet = workbook.Sheets("Sheet1")

    Dim selectedItems As New List(Of String)
    For Each item As Object In ListBox1.SelectedItems
        selectedItems.Add(item.ToString())
    Next

    For i As Integer = 0 To selectedItems.Count - 1
        worksheet.Cells(i + 1, 1).Value = selectedItems(i)
    Next

    workbook.Save()
    workbook.Close()
    excelApp.Quit()
End Sub