Как вставить выбранные элементы из списка в VB.net в лист Excel? - PullRequest
0 голосов
/ 30 октября 2019

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

1 Ответ

0 голосов
/ 31 октября 2019

Я изменил строку, как предложил Билай, и она отлично работает.

   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 
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...