Datagridview schneller in Excel exportieren

  • VB.NET

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Datagridview schneller in Excel exportieren

    Hallo
    Ich habe eine Datagridview die an eine BindingSource gebunden ist. Die BindingSource ist an eine Datatabel gebunden. Die BindingSource habe ich eingebaut um die Filterfunktion zu verwenden.
    Ich möchte jetzt nun die Daten aus der Datagridview in eine Excel Datei schreiben.
    Ich habe das mit folgendem Code realisiert mit
    Imports Microsoft.Office.Interop

    VB.NET-Quellcode

    1. Dim saveFileDialog1 As New SaveFileDialog()
    2. saveFileDialog1.Filter = "Excel|*.xlsx"
    3. saveFileDialog1.Title = "Exportieren"
    4. If saveFileDialog1.ShowDialog = DialogResult.OK Then
    5. Try
    6. Dim xlApp As Excel.Application
    7. Dim xlWorkBook As Excel.Workbook
    8. Dim xlWorkSheet As Excel.Worksheet
    9. Dim misValue As Object = System.Reflection.Missing.Value
    10. Dim i As Integer
    11. Dim j As Integer
    13. xlApp = New Excel.Application
    14. xlWorkBook = xlApp.Workbooks.Add(misValue)
    15. xlWorkSheet = CType(xlWorkBook.Sheets(1), Excel.Worksheet
    16. For i = 0 To DataGridView2.RowCount - 1
    17. For j = 0 To DataGridView2.ColumnCount - 1
    18. If DataGridView1(j, i).Value IsNot Nothing Then
    19. xlWorkSheet.Cells(i + 1, j + 1) = DataGridView2(j, i).Value.ToString()
    20. End If
    21. Next
    22. Next
    23. xlWorkSheet.SaveAs(saveFileDialog1.FileName)
    24. xlWorkBook.Close()
    25. xlApp.Quit()
    26. Catch ex As Exception
    27. 'Fehler
    28. MsgBox("Fehler beim Übertragen der Daten nach Excel!" & vbCrLf &
    29. ex.Message, MsgBoxStyle.Exclamation)
    30. End Try
    31. End If


    Das funktioniert auch. Allerdings dauert das verdammt lange. Bei 6000 Zeilen zirka 1 Minute. Wenn ich die Inhalte aus der Datagridview manuell kopiere, Excel öffne und einfüge geht das sofort.
    Weiss jemand wie ich das schneller machen kann?
    Wichtig: Ich möchte nur die Daten aus der Datagridview in der Excel Datei haben (also die gefilterten) nicht die aus der Datatabel.
    mfg

    @gitarre94 Mach es ohne Excel. Sieh Dir mal dieses Projekt an.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    gitarre94 schrieb:

    vb.net ... c#
    Sorry, das ist mir persönlich egal.
    Du kannst die Klassen einzeln übertragen, gugst Du hier,
    oder Du lässt Dir das vom IlSpy machen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany
    ok danke das umwandeln klappt schonmal :)
    Allerdings weiss ich nicht wie ich weiter vorgehen soll.
    Ich habe jetzt 2 Klassen erstellt.
    1. Klasse: ExcelWriter.vb
    2. Klasse: Program.vb
    Wie kann ich jetzt die Zeilen in eine Excel Datei schreiben?

    @Eierlein
    oh ok danke :)
    Ich hab jetzt die Klasse ExcelWriter erstellt.
    Jetzt weiss ich allerdingswas nicht wie ich weiter machen soll.
    Wie kann ich jetzt die Zeilen in eine Excel Datei schreiben?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „gitarre94“ ()

    gitarre94 schrieb:

    in eine Excel Datei schreiben
    Das ist eine Console-Anwendung, und die läuft ab in der Klasse Program in der Prozedur Main:

    C#-Quellcode

    1. static void Main(string[] args)
    2. {
    3. FileStream stream = new FileStream("demo.xls", FileMode.OpenOrCreate);
    4. ExcelWriter writer = new ExcelWriter(stream);
    5. writer.BeginWrite();
    6. writer.WriteCell(0, 0, "ExcelWriter Demo");
    7. writer.WriteCell(1, 0, "int");
    8. writer.WriteCell(1, 1, 10);
    9. writer.WriteCell(2, 0, "double");
    10. writer.WriteCell(2, 1, 1.5);
    11. writer.WriteCell(3, 0, "empty");
    12. writer.WriteCell(3, 1);
    13. writer.EndWrite();
    14. stream.Close();
    15. }
    Da werden einzelne Zellen beschrieben.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    gitarre94 schrieb:

    jede Zelle einzeln
    Jou.
    Wenn Du dabei mal (zumindest partiell) das .ToString() weglässt, kommen sogar korrekte Datentypen dort an.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo gitarre94,
    mit folgendem Projekt kannst du ganz bequem DataTables oder gar komplette DataSets
    in ein Excel-Dokument (2007/2010) schreiben, ohne Excel installiert zu haben:
    Link: closedxml.codeplex.com/releases/view/197852
    Kleine Anleitung für den Einstieg: community.dev-reference.de/ind…-installiertes-MS-Office/

    @OnkelR
    geht das auch mit einer Datagridview?
    Oder macht es vielleicht Sinn die Datagridview in eine Datatabel zu schreiben und die Datatabel dann zu exportien? (Wenn das geht)

    @RodFromGermany
    einen Nachteil hat die Variante trotzdem. Man kann nur maximal 2^16 = 65536 Zeilen exportieren. Danach kommt die Fehlermeldung "arithmetischer Überlauf"
    Oder kann man das irgendwie beseitigen?
    Aber von Laufzeit schonmal ein großer Schritt nach vorne.
    Hab mal eine Messung gemacht mit 57000 Zeilen.
    1. Variante mit Imports.Microsoft.Interop = 70minuten (hochgerechnet)
    2. Variante in BIFF Format: 0:43 Minuten
    :D

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „gitarre94“ ()

    Du kannst den momentanen Inhalt des DGV per Hand in eine Excel-Tabelle schaufeln -> closedxml.codeplex.com/wikipag…erringTitle=Documentation
    Oder du kreierst eine Abfrage und schickst dann das Ergebnis in eine DataTable (Abfrage.CopyToDataTable), welche du dann in eine Excel-Tabelle schaufelst -> closedxml.codeplex.com/wikipag…erringTitle=Documentation
    oder...oder

    Hier sind paar Beispiele: closedxml.codeplex.com/documentation

    Wie sind die Laufzeiten?

    Schneller als man glaubt. Ich war zumindest positiv überrascht.

    Können auch mehr als 65000 Spalten gespeichert werden?

    Wer zur Hölle benötigt so viele Spalten?

    Ich habs zB. mit ca. 30.000 Datensätzen a 15 Spalten unterschiedlichster Datentypen getestet.

    gitarre94 schrieb:

    "arithmetischer Überlauf"
    mit welchem Code?
    Mit welchen Datentypen?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany
    1.

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Produces Excel file without using Excel
    3. ''' </summary>
    4. Public Class ExcelWriter
    5. Private stream As Stream
    6. Private writer As BinaryWriter
    8. Private clBegin As UShort() = {&H809, 8, 0, &H10, 0, 0}
    9. Private clEnd As UShort() = {&Ha, 0}
    11. Private Sub WriteUshortArray(value As UShort())
    12. For i As Integer = 0 To value.Length - 1
    13. writer.Write(value(i))
    14. Next
    15. End Sub
    17. ''' <summary>
    18. ''' Initializes a new instance of the <see cref="ExcelWriter"/> class.
    19. ''' </summary>
    20. ''' <param name="stream">The stream.</param>
    21. Public Sub New(stream As Stream)
    22. Me.stream = stream
    23. writer = New BinaryWriter(stream)
    24. End Sub
    26. ''' <summary>
    27. ''' Writes the text cell value.
    28. ''' </summary>
    29. ''' <param name="row">The row.</param>
    30. ''' <param name="col">The col.</param>
    31. ''' <param name="value">The string value.</param>
    32. Public Sub WriteCell(row As Integer, col As Integer, value As String)
    33. Dim clData As UShort() = {&H204, 0, 0, 0, 0, 0}
    34. Dim iLen As Integer = value.Length
    35. Dim plainText As Byte() = Encoding.ASCII.GetBytes(value)
    36. clData(1) = CUShort(8 + iLen)
    37. clData(2) = CUShort(row)
    38. clData(3) = CUShort(col)
    39. clData(5) = CUShort(iLen)
    40. WriteUshortArray(clData)
    41. writer.Write(plainText)
    42. End Sub
    44. ''' <summary>
    45. ''' Writes the integer cell value.
    46. ''' </summary>
    47. ''' <param name="row">The row number.</param>
    48. ''' <param name="col">The column number.</param>
    49. ''' <param name="value">The value.</param>
    50. Public Sub WriteCell(row As Integer, col As Integer, value As Integer)
    51. Dim clData As UShort() = {&H27e, 10, 0, 0, 0}
    52. clData(2) = CUShort(row)
    53. clData(3) = CUShort(col)
    54. WriteUshortArray(clData)
    55. Dim iValue As Integer = (value << 2) Or 2
    56. writer.Write(iValue)
    57. End Sub
    59. ''' <summary>
    60. ''' Writes the double cell value.
    61. ''' </summary>
    62. ''' <param name="row">The row number.</param>
    63. ''' <param name="col">The column number.</param>
    64. ''' <param name="value">The value.</param>
    65. Public Sub WriteCell(row As Integer, col As Integer, value As Double)
    66. Dim clData As UShort() = {&H203, 14, 0, 0, 0}
    67. clData(2) = CUShort(row)
    68. clData(3) = CUShort(col)
    69. WriteUshortArray(clData)
    70. writer.Write(value)
    71. End Sub
    73. ''' <summary>
    74. ''' Writes the empty cell.
    75. ''' </summary>
    76. ''' <param name="row">The row number.</param>
    77. ''' <param name="col">The column number.</param>
    78. Public Sub WriteCell(row As Integer, col As Integer)
    79. Dim clData As UShort() = {&H201, 6, 0, 0, &H17}
    80. clData(2) = CUShort(row)
    81. clData(3) = CUShort(col)
    82. WriteUshortArray(clData)
    83. End Sub
    85. ''' <summary>
    86. ''' Must be called once for creating XLS file header
    87. ''' </summary>
    88. Public Sub BeginWrite()
    89. WriteUshortArray(clBegin)
    90. End Sub
    92. ''' <summary>
    93. ''' Ends the writing operation, but do not close the stream
    94. ''' </summary>
    95. Public Sub EndWrite()
    96. WriteUshortArray(clEnd)
    97. writer.Flush()
    98. End Sub
    99. End Class


    VB.NET-Quellcode

    1. Namespace XLSExportDemo
    2. Class Program
    3. Private Shared Sub Main(args As String())
    4. Dim stream As New FileStream("demo.xls", FileMode.OpenOrCreate)
    5. Dim writer As New ExcelWriter(stream)
    6. writer.BeginWrite()
    7. writer.WriteCell(0, 0, "ExcelWriter Demo")
    8. writer.WriteCell(1, 0, "int")
    9. writer.WriteCell(1, 1, 10)
    10. writer.WriteCell(2, 0, "double")
    11. writer.WriteCell(2, 1, 1.5)
    12. writer.WriteCell(3, 0, "empty")
    13. writer.WriteCell(3, 1)
    14. writer.EndWrite()
    15. stream.Close()
    16. End Sub
    17. End Class
    18. End Namespace


    2. Datentyp String

    Ich habe mich jetzt allerdings jetzt für die Variante von @OnkelR entschieden.
    @OnkelR ist es auch möglich Bilder/Logos in die Xml Datei einzufügen?

    gitarre94 schrieb:

    Bilder/Logos in die Xml Datei einzufügen?
    genau wie beim Studio-Designer, Du musst das Bild in einen Base64String und zurück konvertieren, gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende