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

【问题标题】：How to paste selected items from a list box in VB.net to excel sheet?如何将 VB.net 列表框中的选定项目粘贴到 Excel 工作表？
【发布时间】：2019-10-30 20:24:57
【问题描述】：

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

   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

【问题讨论】：

尝试将这一行 NewExcel.Range("A1").Value = ListBox1.SelectedItem ... 改为 this ... counter +=1: NewExcel.Range("A" & counter) .Value = SelectedItem.ToString()

标签： excel vb.net listbox

【解决方案1】：

我按照 Bilai 的建议更改了线路，并且效果很好。

   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

【讨论】：