Guten Tag alle zusammen,

ich bin gerade dabei ein Code zu schreiben der 3 große DataGridViews (ca. 3300 Zeilen x 9 Spalten , Integer/DateTime) nach Excel exportieren soll. Dazu führe ich die GridView in ein DataSet und von dort nach Excel. Allerdings dauert mir das zu lange ca. 5 Minuten. 1. Frage : Gibt es eine schnellere Variante oder seht ihr eine Leistungsschwäche im folgenden Code?
2. Frage: Kann man auch ChartSeries "Abbildungen" nach Excel exportieren und wie würde es funktionieren?

Visual Basic-Quellcode

1. [/b] Dim regDate As Date = Date.Now()
2. Dim strDate As String = regDate.ToString("MM-dd-yyyy")
3. Dim saveFileDialog1 As New SaveFileDialog()
4. saveFileDialog1.Filter = "Excel Arbeitsmappe (.xls)|*.xls"
5. saveFileDialog1.Title = "Als Excel Datei exportieren"
6. saveFileDialog1.FileName = "exportedxx-" & strDate & ".xls"
9. If saveFileDialog1.FileName IsNot "" And saveFileDialog1.ShowDialog = DialogResult.OK = True Then
10. If ((DataGridView1.Columns.Count = 0) Or (DataGridView1.Rows.Count = 0)) Then
11. Exit Sub
12. End If
13. System.Windows.Forms.Cursor.Current = Cursors.WaitCursor
16. Dim dset As New DataSet
17. 'add table to dataset
18. dset.Tables.Add()
19. 'add column to that table
20. For i As Integer = 0 To DataGridView1.ColumnCount - 1
21. dset.Tables(0).Columns.Add(DataGridView1.Columns(i).HeaderText)
22. Next
23. 'add rows to the table
24. Dim dr1 As DataRow
25. For i As Integer = 0 To DataGridView1.RowCount - 1
26. dr1 = dset.Tables(0).NewRow
27. For j As Integer = 0 To DataGridView1.Columns.Count - 1
28. dr1(j) = DataGridView1.Rows(i).Cells(j).Value
29. Next
30. dset.Tables(0).Rows.Add(dr1)
31. Next
33. 'add table to dataset
34. dset.Tables.Add()
35. 'add column to that table
36. For i As Integer = 0 To DataGridView2.ColumnCount - 1
37. dset.Tables(1).Columns.Add(DataGridView2.Columns(i).HeaderText)
38. Next
39. 'add rows to the table
40. Dim dr2 As DataRow
41. For i As Integer = 0 To DataGridView2.RowCount - 1
42. dr2 = dset.Tables(1).NewRow
43. For j As Integer = 0 To DataGridView2.Columns.Count - 1
44. dr2(j) = DataGridView2.Rows(i).Cells(j).Value
45. Next
46. dset.Tables(1).Rows.Add(dr2)
47. Next
50. dset.Tables.Add()
52. For i As Integer = 0 To DataGridView3.ColumnCount - 1
53. dset.Tables(2).Columns.Add(DataGridView3.Columns(i).HeaderText)
54. Next
55. 'add rows to the table
56. Dim dr3 As DataRow
57. For i As Integer = 0 To DataGridView3.RowCount - 1
58. dr3 = dset.Tables(2).NewRow
59. For j As Integer = 0 To DataGridView3.Columns.Count - 1
60. dr3(j) = DataGridView3.Rows(i).Cells(j).Value
61. Next
62. dset.Tables(2).Rows.Add(dr3)
63. Next
65. Dim excel As New Microsoft.Office.Interop.Excel.Application
66. Dim wBook As Microsoft.Office.Interop.Excel.Workbook
67. Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet
68. Dim wSheet2 As Microsoft.Office.Interop.Excel.Worksheet
69. Dim wSheet3 As Microsoft.Office.Interop.Excel.Worksheet
71. 'excel.Workbooks.Close()
72. wBook = excel.Workbooks.Add()
73. wSheet = wBook.ActiveSheet()
74. wSheet.Name = "xxx"
76. Dim dt As System.Data.DataTable = dset.Tables(0)
77. Dim dt2 As System.Data.DataTable = dset.Tables(1)
78. Dim dt3 As System.Data.DataTable = dset.Tables(2)
79. Dim dc As System.Data.DataColumn
80. Dim dr As System.Data.DataRow
82. Dim colIndex As Integer = 0
83. Dim rowIndex As Integer = 0
85. For Each dc In dt.Columns
86. colIndex = colIndex + 1
87. excel.Cells(1, colIndex) = dc.ColumnName
88. excel.Cells(1, colIndex).Interior.ColorIndex = 23
89. excel.Cells(1, colIndex).Font.Name = "Arial"
90. excel.Cells(1, colIndex).Font.Size = 10
91. Next
93. For Each dr In dt.Rows
94. rowIndex = rowIndex + 1
95. colIndex = 0
96. For Each dc In dt.Columns
97. colIndex = colIndex + 1
98. excel.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
99. excel.Cells(rowIndex + 1, colIndex).EntireRow.Borders.ColorIndex = 1
101. Next
102. Next
104. wSheet.Columns.AutoFit()
105. wSheet2 = wBook.Sheets.Add()
106. wSheet2 = wBook.ActiveSheet()
107. wSheet2.Name = "xxx"
109. colIndex = 0
110. rowIndex = 0
112. For Each dc In dt2.Columns
113. colIndex = colIndex + 1
114. excel.Cells(1, colIndex) = dc.ColumnName
115. excel.Cells(1, colIndex).Interior.ColorIndex = 23
116. excel.Cells(1, colIndex).Font.Name = "Arial"
117. excel.Cells(1, colIndex).Font.Size = 10
118. Next
120. For Each dr In dt2.Rows
121. rowIndex = rowIndex + 1
122. colIndex = 0
123. For Each dc In dt2.Columns
124. colIndex = colIndex + 1
125. excel.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
126. excel.Cells(rowIndex + 1, colIndex).Borders.ColorIndex = 1
128. Next
129. Next
131. wSheet2.Columns.AutoFit()
132. wSheet3 = wBook.Sheets.Add()
133. wSheet3 = wBook.ActiveSheet()
134. wSheet3.Name = "xxx"
136. For Each dc In dt3.Columns
137. colIndex = colIndex + 1
138. excel.Cells(1, colIndex) = dc.ColumnName
139. excel.Cells(1, colIndex).Interior.ColorIndex = 23
140. excel.Cells(1, colIndex).Font.Name = "Arial"
141. excel.Cells(1, colIndex).Font.Size = 10
142. Next
144. For Each dr In dt3.Rows
145. rowIndex = rowIndex + 1
146. colIndex = 0
147. For Each dc In dt3.Columns
148. colIndex = colIndex + 1
149. excel.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
150. excel.Cells(rowIndex + 1, colIndex).Borders.ColorIndex = 1
151. Next
152. Next
154. Dim strFileName As String = saveFileDialog1.FileName
155. Dim blnFileOpen As Boolean = False
156. Try
157. Dim fileTemp As System.IO.FileStream = System.IO.File.OpenWrite(strFileName)
158. fileTemp.Close()
159. Catch ex As Exception
160. blnFileOpen = False
161. End Try
163. If System.IO.File.Exists(strFileName) Then
164. System.IO.File.Delete(strFileName)
165. End If
167. wBook.SaveAs(strFileName)
168. excel.Workbooks.Open(strFileName)
169. excel.Visible = True[b]

Vielen Dank!

Also der Code ist zweimal 3-fach redundant, aber einen Schlehmil-Algorithmus sehe ich auf die Schnelle nicht.

Wäre also erstmal festzustellen, wo's überhaupt hapert.
Und gut möglich, dasses mit Office-InterOp auch garnet schnell geht.

Die am häufigsten durchlaufenen Zeilen sind ja die inneren For-schleifen, hier zB #6 + #7Kommentiere da mal die eine mal die andere mal beide aus, und vergleiche die Zeiten.
Und das natürlich immer in allen 3 Tabellen gleichzeitig machen.

Vielen Dank für die Antwort!

Habe jetzt wie beschrieben einige Zeilen auskommentiert. Die innerste Schleife dauert wie gesagt am längsten, doch wenn ich die Zeile 7 auskommentiere (Bordes.ColorIndex) komme ich auf 40 - 60 s.

Ich komme auf den Entschluss das Formatierung über vb gesteuert sehr leistungsmindernd sind (hier: 4min ).

Hast du vielleicht eine Ahnung zu Frage2 ?

naja, die Frage 2 ist bischen unbeantwortbar - ich hab doch keine Ahnung, was bei dir ChartSeries "Abbildung" überhaupt bedeutet.

Aber ich vermute mal, du willst codeseitig in Excel ein Diagramm erstellen aus Daten deiner Anwendung.
Das ist vermutlich möglich, ich weiß aber nicht wie.

Ich habe in meiner Form ein Diagramm erstellt (In der ToolBox als "Chart" aufgelistet) diese möchte ich beim exportieren auch in einer Excel Mappe darstellen.
Den Vorgang zum Abspeichern des Charts als Bilddatei habe ich hinbekommen mit . Jetzt fehlt lediglich der Export nach Excel