Excel Export aus Datagridview langsam

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Excel Export aus Datagridview langsam

    Hey Leute,

    ich möchte ein aus meinem Programm die Möglichkeit bieten, alle Gridviews nach Excel exportieren lassen zu können. Dasselbe gilt auch für einige Tabellen aus meinem Dataset. Bei diesen Dataset Tabellen klappt das auch wunderbar, nur ist der Export aus einem Datagridview sehr langsam. Hier mal mein Code:

    VB.NET-Quellcode

    1. Sub ExcelBestandsverzeichnis()
    2. Dim xlapp As New excel.Application
    4. If xlapp Is Nothing Then
    5. MessageBox.Show("Excel ist nicht installiert!")
    6. Return
    7. End If
    8. Dim xlwb As excel.Workbook
    9. Dim xlws As excel.Worksheet
    10. Dim c, r, k As Integer
    11. Try
    13. xlwb = xlapp.Workbooks.Add()
    14. xlws = DirectCast(xlwb.Sheets(1), excel.Worksheet) 'Konvertierung eines sheets in ein excel.worksheet und Deklarierung an das xlws Objekt
    15. xlws.Name = "Bestandsverzeichnis"
    17. k = 1 'Zeile der Spaltenüberschriften
    18. c = 1 'Startreihe der Werte
    19. r = 2 'Startzeile der Werte
    20. xlapp.Visible = True
    21. 'Spaltenüberschriften
    22. For Each column As DataGridViewColumn In dgvBestandsverzeichnis.Columns
    23. Dim Header As String = column.HeaderText
    24. xlws.Cells(1, k) = Header
    25. k += 1
    26. Next
    28. 'Feldwerte
    29. For Each row As DataGridViewRow In dgvBestandsverzeichnis.Rows
    30. For Each column As DataGridViewColumn In dgvBestandsverzeichnis.Columns
    31. 'für jede Spalte in jeder Reihe wird der Wert des Feldes an Excel übergeben
    32. Dim Value As String = row.Cells(column.Name).Value.ToString
    33. xlws.Cells(r, c) = Value
    34. c += 1
    35. Next
    36. r += 1
    37. c = 1
    38. Next
    40. Catch ex As Exception
    41. MsgBox(Err.Description)
    42. End Try
    44. End Sub


    Gibt es da eine schnellere Lösung? ?(

    Was haltet ihr außerdem von einer Speicherung der Daten in einem Array? Dann würde ich mir für jede Tabelle ein Array erstellen und es der Export Prozedur übergeben, die es dann liest und in die Excel übergibt? Leider waren meine ersten Versuche damit noch langsamer als mein Code da oben. :whistling:

    In etwa so:

    Visual Basic-Quellcode

    1. ​Dim Arr(,) As Double = {{1, 2}, {1, 3}, {2, 1}, {2, 2}, {2, 3}, {3, 1}, {3, 2}, {3, 3}} 'zweidimensionales Array
    2. xlws.Range("A1:C3").Value = Arr 'Range-Bereich muss der Array-Dimension entsprechen
    Du kannst das Array natürlich auch in einer Schleife befüllen.
    Aber wahrscheinlich kannst du auch aus dem DatagridView ein Array extrahieren.
    Einfach ein bisschen kreativ sein.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    rickomanio schrieb:

    mein Array ist ja nicht immer gleich groß
    Du kannst dafür Range.Resize verwenden.
    Da kannst du die entsprechenden Dimensionen des Arrays angeben.
    Beachte dabei, dass ein Array üblicherweise nullbasiert ist.

    rickomanio schrieb:

    extrahieren eines Arrays aus einem DGV
    Vielleicht nicht aus dem DGV selbst, aber möglicherweise aus der zugrunde liegenden DataTable.
    Ich habe jetzt keine passende Testumgebung zur Hand, aber ich könnte wetten, dass da zumindest die Rows oder die Columns eine ToArray-Property haben.
    Dann kannst du dir zumindest die innere Schleife sparen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende