Wie ermögliche ich es mir, aus einem ListView bestimmt Spalten nach Excel zu Exportieren?
Hab das hier gefunden, aber da Exportiert er jede Spalte.
Danke
Hab das hier gefunden, aber da Exportiert er jede Spalte.
VB.NET-Quellcode
- SaveFileDialog1.Title = "Save Excel File"
- SaveFileDialog1.Filter = "Excel Files (*.xlsx)|*.xlsx"
- 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
- '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 = 2
- Dim col As Integer = 1
- '////////////////////////////////////////////////////////////////////////
- Dim rowhead As Integer = 1
- Dim colhead As Integer = 1
- Dim columns As New List(Of String)
- Dim columncount As Integer = ListView2.Columns.Count - 1
- For i As Integer = 0 To columncount
- sheet.Cells(rowhead, colhead) = ListView2.Columns(i).Text
- colhead = colhead + 1
- Next
- '////////////////////////////////////////////////////////////////////////
- For Each item As ListViewItem In ListView2.Items
- For i As Integer = 0 To item.SubItems.Count - 1
- 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()
- releaseObject(sheet)
- releaseObject(book)
- releaseObject(xls)
Danke