У меня есть список, заполненный из базы данных 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