DGV in Excel exportieren-> Performance verbessern

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von SKeks.

    DGV in Excel exportieren-> Performance verbessern

    Hallo Community,

    Ich hab in meiner Applikation die Möglichkeit, die Inhalt einer DatagridView nach Excel zu exportieren.
    Bei geringen Datenmengen funktioniert dies wunderbar, bei höheren Datenmengen (~500 Zeilen mit ca 16 Spalten) kann dies jedoch einige Sekunden dauern.
    Dabei kann ich auch in der GUI derweil nichts machen.

    Hier mein Code:

    Quellcode

    1. Public Shared Sub exportDGV(dgv As DataGridView)
    3. ' return
    4. If dgv Is Nothing Or dgv.RowCount = 0 Then
    5. Exit Sub
    6. End If
    8. ' init variables for export
    9. Dim x_app As Excel.Application
    10. Dim x_workbook As Excel.Workbook
    11. Dim x_worksheet As Excel.Worksheet
    12. Dim misValue As Object = System.Reflection.Missing.Value
    13. Dim i As Integer
    14. Dim j As Integer
    16. ' init save file dialog
    17. Dim sfd_export As New SaveFileDialog
    18. sfd_export.Filter = "Excel Worksheet|*.xlsx |All Files|*.*"
    19. sfd_export.Title = "Save an Excel File"
    20. sfd_export.FileName = "result.xlsx"
    22. If sfd_export.ShowDialog() = Windows.Forms.DialogResult.OK Then
    23. ' create new excel objects
    24. x_app = New Excel.Application
    25. x_workbook = x_app.Workbooks.Add(misValue)
    26. x_worksheet = x_workbook.ActiveSheet
    28. ' set header
    29. For col As Integer = 0 To dgv.Columns.Count - 1
    30. x_worksheet.Cells(1, col + 1).Value = dgv.Columns(col).HeaderText
    31. x_worksheet.Cells(1, col + 1).Font.Bold = True
    32. Next
    34. ' some of the dgv have a last empty row, those we want to exclude
    35. Dim last_row_dgv = 0
    36. If dgv(0, dgv.RowCount - 1).Value Is Nothing Then
    37. last_row_dgv = 1
    38. End If
    39. ' fill data
    40. For i = 0 To dgv.RowCount - 1 - last_row_dgv
    41. For j = 0 To dgv.ColumnCount - 1
    42. x_worksheet.Cells(i + 2, j + 1) = dgv(j, i).Value.ToString()
    43. Next
    44. Next
    46. ' save to file
    47. Try
    48. x_worksheet.SaveAs(sfd_export.FileName)
    49. Catch ex As Exception
    51. Finally
    52. x_workbook.Close()
    53. x_app.Quit()
    54. End Try
    56. ' release objects
    57. releaseObject(x_app)
    58. releaseObject(x_workbook)
    59. releaseObject(x_worksheet)
    61. MessageBox.Show("Export successfully performed!", "Info")
    62. End If
    64. End Sub


    Habt ihr Ideen was ich in Bezug auf Performance besser machen könnte?
    Würde ein zusätzlicher BackgroundWorker hier Sinn machen?

    Liebe Grüße

    da würdich erstmal rumprobieren, obs nicht zuverlässiger und schneller geht.
    Im INet fahren OpenSource-Excel-Libraries herum, die einen sehr guten Ruf haben.

    Und BackgroundWorker war schon Schrott, als er erfunden wurde.
    Heutzutage würde man Async/await nutzen.

    Aber eins nach dem anderen:
    1) deine bisherigen Backgroundworker runterschmeißen
    2) nach einer performanteren Excel-Beschickung suchen
    3) diese performantere Excel-Beschickung mit Async/Await nebenläufig machen, damit das Gui nicht mehr blockiert.

    Hallo,

    es geht sehr viel schneller mit dem Daten nach Excel übertragen, wenn du zunächst deine Daten aus dem Grid in ein Range-Objekt überträgst und danach nur das Range-Obj in die Tabelle überträgst.

    VB.NET-Quellcode

    1. Dim ref As Excel.Range = DirectCast(_xlWorksheet.Cells(1, 1), Excel.Range)
    2. ref.Offset(1, 0).Value = "Header"
    4. Dim DataArray(Output.Count - 1, 2) As Object
    5. For i = 0 To OutputCount - 1 'Output ist eine List(of Double);
    6. DataArray(i, 0) = val1
    7. DataArray(i, 1) = val2
    8. DataArray(i, 2) = val3
    9. Next
    10. Dim Cell1 As String = DirectCast(_xlWorksheet.Cells(3, 1), Excel.Range).Address
    11. Dim xlRange As Excel.Range = _xlWorksheet.Range(Cell1).Resize(Output.Count, 3)
    12. xlRange.Value = DataArray


    Ich habe das Snipet mit generischen Variablen angepasst, statt die Bezeichnung meiner Variablen. Du musst es noch an dein Code anpassen; ich hoffe es ist so verständlich. Der Geschwindigkeitszuwachs im gegensatz zum zeilenweisen übertragen ist immens.

    Viele Grüße

    Edit: ich schaffs gerade nicht mit den Tags; hmmm ist ja trotzdem lesbar

Facebook
Telefonspende