Einzelne Zellen aus Datagridview auslesen/exportieren

  • VB.NET

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

    Einzelne Zellen aus Datagridview auslesen/exportieren

    Hallo,

    ich habe drei DataGridViews und möchte alle drei nach Excel exportieren. Am Anfang hatte ich eine for-Schleife benutzt aber damit schaffe ich es nicht alle drei auf einmal zu exportieren.
    Der Code davon sieht so aus:

    VB.NET-Quellcode

    1. With DataGridView1
    2. For Spalte As Integer = 0 To .Columns.Count - 1
    3. xlWorkSheet.Cells(1, Spalte + 1).Value = .Columns(Spalte).HeaderText
    4. xlWorkSheet.Cells(1, Spalte + 1).Font.Bold = True
    5. Next
    6. Anzahlzeilen = .Rows.Count
    7. If .AllowUserToAddRows = True Then
    8. Anzahlzeilen = Anzahlzeilen - 1 ' Leerzeile abziehen
    9. End If
    10. For Zeile As Integer = 0 To Anzahlzeilen - 1
    11. For Spalte As Integer = 0 To .Columns.Count - 1
    12. xlWorkSheet.Cells(Zeile + 2, Spalte + 1).Value() = .Rows(Zeile).Cells(Spalte).Value.ToString
    13. Next
    14. Next
    15. End With


    Falls einer mir dabei helfen kann, wie ich alle drei DGV per Schleife exportiert bekomme wäre das natürlich super.

    Deswegen will ich es per Hand machen:

    VB.NET-Quellcode

    1. xlWorkSheet.Cells(4, 2) = "Ladung"
    2. xlWorkSheet.Cells(4, 3) = "X"
    3. xlWorkSheet.Cells(4, 4) = "Y"
    5. xlWorkSheet.Cells(5, 2) = DataGridView1.???
    6. xlWorkSheet.Cells(5, 3) = DataGridView1.???
    7. xlWorkSheet.Cells(5, 4) = DataGridView1.???
    8. xlWorkSheet.Cells(5, 5) = DataGridView1.???
    10. xlWorkSheet.Cells(6, 2) = DataGridView1.???
    11. xlWorkSheet.Cells(6, 3) = DataGridView1.???
    12. xlWorkSheet.Cells(6, 4) = DataGridView1.???
    13. xlWorkSheet.Cells(6, 5) = DataGridView1.???



    Aber ich schaffe es nicht, die einzelnen Zellen auszuwählen. Habe wirklich alle möglichen Seiten mir angeschaut aber egal was probiert habe - es klappt einfach nicht.

    Über eure Hilfe bin ich wirklich dankbar.

    Viele Grüße

    Das Problem habe ich gelöst.
    Aber eine Frage hätte ich noch.

    Welche Werte der Schleife muss ich verändern damit die Schleife z.B. erst bei Zelle (5,5) der Excel Mappe startet?

    VB.NET-Quellcode

    1. With DataGridView1
    2. For Spalte As Integer = 0 To .Columns.Count - 1
    3. xlWorkSheet.Cells(1, Spalte + 1).Value = .Columns(Spalte).HeaderText
    4. xlWorkSheet.Cells(1, Spalte + 1).Font.Bold = True
    5. Next
    6. Anzahlzeilen = .Rows.Count
    7. If .AllowUserToAddRows = True Then
    8. Anzahlzeilen = Anzahlzeilen - 1 ' Leerzeile abziehen
    9. End If
    10. For Zeile As Integer = 0 To Anzahlzeilen - 1
    11. For Spalte As Integer = 0 To .Columns.Count - 1
    12. xlWorkSheet.Cells(Zeile + 2, Spalte + 1).Value() = .Rows(Zeile).Cells(Spalte).Value.ToString
    13. Next
    14. Next
    15. End With


    Diese Schleife fängt bei (0,0).

    Vielen Dank!

    Leider bin ein absoluter Anfänger. Soll ich For-Schleife damit ersätzen? Weiß nicht was ich damit machen soll.

    So sieht das bei mir im Moment aus:

    VB.NET-Quellcode

    1. Private Sub releaseObject(ByVal obj As Object)
    2. Try
    3. System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
    4. obj = Nothing
    5. Catch ex As Exception
    6. obj = Nothing
    7. Finally
    8. GC.Collect()
    9. End Try
    10. End Sub
    11. Private Sub SpeichernAlsExcelDateiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernAlsExcelDateiToolStripMenuItem.Click
    12. If DataGridView1.RowCount > 0 Then
    14. Dim xlApp As Excel.Application
    15. Dim xlWorkBook As Excel.Workbook
    16. Dim xlWorkSheet As Excel.Worksheet
    17. Dim misValue As Object = System.Reflection.Missing.Value
    18. Dim Anzahlzeilen As Integer
    20. xlApp = New Excel.Application
    21. xlWorkBook = xlApp.Workbooks.Add(misValue)
    22. xlWorkSheet = xlWorkBook.ActiveSheet
    25. With DataGridView1
    26. For Spalte As Integer = 0 To .Columns.Count - 1
    27. xlWorkSheet.Cells(1, Spalte + 1).Value = .Columns(Spalte).HeaderText
    28. xlWorkSheet.Cells(1, Spalte + 1).Font.Bold = True
    29. Next
    30. Anzahlzeilen = .Rows.Count
    31. If .AllowUserToAddRows = True Then
    32. Anzahlzeilen = Anzahlzeilen - 1 ' Leerzeile abziehen
    33. End If
    34. For Zeile As Integer = 0 To Anzahlzeilen - 1
    35. For Spalte As Integer = 0 To .Columns.Count - 1
    36. xlWorkSheet.Cells(Zeile + 2, Spalte + 1).Value() = .Rows(Zeile).Cells(Spalte).Value.ToString
    37. Next
    38. Next
    39. End With
    42. Dim Ausgabepfad As String
    43. SaveFileDialog1.ShowDialog()
    44. Ausgabepfad = SaveFileDialog1.FileName & ".xlsx"
    47. xlWorkSheet.SaveAs(Ausgabepfad)
    48. xlWorkBook.Close()
    49. xlApp.Quit()
    51. releaseObject(xlApp)
    52. releaseObject(xlWorkBook)
    53. releaseObject(xlWorkSheet)
    55. Else : MsgBox("Keine Werte zum exportieren vorhanden.", MsgBoxStyle.Exclamation)
    56. End If
    58. End Sub