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

Question

我有一个从 SQL 数据库填充的列表框，我想将所选项目从列表框中导出到 excel sheet。我无法解决的是如何从不同单元格的列表框中传递每个选定的项目。我有每次下拉一行的代码，但无法弄清楚如何将它与所选项目代码块放在一起。

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim NewExcel As New Excel.Application
    NewExcel.Workbooks.Add()
    Dim counter As Integer = 0
    Dim SelectedItems = (From i In ListBox1.SelectedItems).ToList

    For Each selectedItem In SelectedItems
        NewExcel.Range("A1").Value = ListBox1.SelectedItem
    Next

    'Do
    '    NewExcel.ActiveCell.Value = counter
    '    NewExcel.ActiveCell.Offset(1, 0).Activate()
    '    counter += 1
    'Loop Until counter = 10

    NewExcel.Visible = True
End Sub

Answer 1

我按照比莱的建议修改了线路，效果很好。

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim NewExcel As New Excel.Application
    NewExcel.Workbooks.Add()
    Dim counter As Integer = 0
    Dim SelectedItems = (From i In ListBox1.SelectedItems).ToList


    For Each selectedItem In SelectedItems
        counter += 1 : NewExcel.Range("A" & counter).Value = selectedItem.ToString()
    Next


    NewExcel.Visible = True
End Sub

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

How to paste selected items from a list box in VB.net to excel sheet?

vb.net

excel

listbox