Блог

Я получил нужные мне результаты из элемента управления Listview. Теперь я хотел бы экспортировать данные в текстовый файл / excel, а затем загрузить их обратно в элемент управления listview, когда мне это нужно. Я знаю, как выполнить обе эти задачи, используя элемент управления listbox, но listview для меня новый. Я часами изучал и играл с кодом, но я продолжаю получать ту или иную ошибку. Пожалуйста, найдите последнюю версию моего кода для экспорта данных ниже. Кроме того, если бы вы могли предоставить код для импорта, это было бы супер.

 'Export the listview to an Excel spreadsheet

 Dim SaveFileDialog1 As New SaveFileDialog
 SaveFileDialog1.Title = "Save Excel File"
 SaveFileDialog1.Filter = "Excel files (*.xls)|*.xls|Excel Files 
 (*.xlsx)|*.xslx"
 SaveFileDialog1.ShowDialog()

    'exit if no file selected
  If SaveFileDialog1.FileName = "" Then
   Exit Sub
  End If

   'create objects to interface to Excel
 Dim xls As New Excel.Application
 Dim book As Excel.Workbook
 Dim sheet As Excel.Worksheet
 Dim placeholder As String

 'create a workbook and get reference to first worksheet
 xls.Workbooks.Add()
 book = xls.ActiveWorkbook
 sheet = book.ActiveSheet

 'step through rows and columns and copy data to worksheet

    Dim row As Integer = 1
    Dim col As Integer = 1

    For Each item As ListViewItem In lstViewUsers.Items
        For i As Integer = 0 To item.SubItems.Count - 1
            placeholder = sheet.Cells(row, col) = item.SubItems(i).Text
            col = col   1
        Next
        row  = 1
        col = 1
    Next

    'save the workbook and clean up

    book.SaveAs(SaveFileDialog1.FileName)
    xls.Workbooks.Close()
    xls.Quit()



End Sub