Excel Datei in DGV laden, Sortieren+Trennen und Speichern

  • VB.NET

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

    Excel Datei in DGV laden, Sortieren+Trennen und Speichern

    Guten Tag,

    ich weiß die Überschrift ist nicht grade gut, doch mir viel nichts besseres zum Thema ein.

    Hier erstmal mein bisheriger Code:

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    3. Public Class Form1
    4. Dim Excel_Datei As String
    5. Dim Ordner_Pfad As String
    6. Dim Blatt_Name As String
    7. Dim Überschrift As String
    9. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    10. OpenFileDialog1.ShowDialog()
    11. TextBox1.Text = OpenFileDialog1.FileName
    12. End Sub
    14. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    15. FolderBrowserDialog1.ShowDialog()
    16. TextBox2.Text = FolderBrowserDialog1.SelectedPath
    17. End Sub
    19. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    20. If Not TextBox1.Text = "" And Not TextBox2.Text = "" And Not TextBox3.Text = "" Then
    21. Excel_Datei = TextBox1.Text
    22. Ordner_Pfad = TextBox2.Text
    23. Blatt_Name = TextBox3.Text
    25. If CheckBox1.CheckState = CheckState.Checked Then
    26. Überschrift = "Yes"
    27. Else
    28. Überschrift = "No"
    29. End If
    31. Dim dtSheet1 As New DataTable
    32. Using cn As New System.Data.OleDb.OleDbConnection
    33. Dim Builder As New OleDbConnectionStringBuilder With _
    34. { _
    35. .DataSource = Excel_Datei, _
    36. .Provider = "Microsoft.ACE.OLEDB.12.0" _
    37. }
    38. Builder.Add("Extended Properties", "Excel 12.0; IMEX=1;HDR=" & Überschrift & ";")
    39. cn.ConnectionString = Builder.ConnectionString
    41. cn.Open()
    43. Using cmd As OleDbCommand = New OleDbCommand With {.Connection = cn}
    44. cmd.CommandText = "SELECT * FROM [" & Blatt_Name & "$]"
    45. Dim dr As System.Data.IDataReader = cmd.ExecuteReader
    47. dtSheet1.Load(dr)
    48. DataGridView1.DataSource = dtSheet1
    49. End Using
    50. End Using
    52. Else
    53. MsgBox("Sie haben mindestens eins der drei Felder leer gelassen.")
    54. End If
    55. End Sub
    57. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    58. 'Hier fehlt der Code :('
    59. End Sub
    60. End Class


    Das Programm soll zur erstellung der Riegen unserer Schule genutzt werden. Ich bin im Moment soweit, dass die Daten aus der Schülerdatenbank (bereits in eine *xlsx Datei exportiert) in ein DGV importiert werden. Nun sollen die Daten aus dem DGV nach Geburtsjahr (Zwischen Start Jahrgang und End Jahrgang) in jeweils einzelne Excel Dateien exportiert werden. Also eine Datei für alle im Jahr 1998 geborenen, eine für alle 1997er, usw. Und hier stoße ich an mein Problem. Ich habe nämlich keine Ahnung wie ich dies Realisieren könnte.

    Für jegliche Hilfe währe ich Euch sehr verbunden.

    P.S. Zur Hilfe habe ich ein Bild angehangen. (Button1 = Erste Button auf der Form usw.)

    MfG

    minnimichi
    Bilder

    • Unbenannt.jpg

      80,47 kB, 772×736, 165 mal angesehen

    Ich will mich ja nicht stur stellen und Euch die Arbeit machen lassen, aber das hat mir nicht geholfen. Ich habe diesen Beitrag bereits gelesen und bin auch den Links gefolgt. Doch leider helfen die mir auch nicht weiter. Ich bin halt noch ein bisschen noobig in Sachen VB aber würde mir gerne helfen lassen. (Beim Lernen natürlich)

    Hey, hab jetzt ein bissl rumprobiert und in dem bereitsgenutzt Code zum auslesen der Excel Datei ins DGV,

    VB.NET-Quellcode

    1. Using cn As New System.Data.OleDb.OleDbConnection
    2. Dim Builder As New OleDbConnectionStringBuilder With _
    3. { _
    4. .DataSource = Excel_Datei, _
    5. .Provider = "Microsoft.ACE.OLEDB.12.0" _
    6. }
    7. Builder.Add("Extended Properties", "Excel 12.0; IMEX=1;HDR=No;")
    8. cn.ConnectionString = Builder.ConnectionString
    10. cn.Open()
    12. Using cmd As OleDbCommand = New OleDbCommand With {.Connection = cn}
    13. cmd.CommandText = "SELECT F1, F2, F3, CDate(F4), F5, F6 FROM [" & Blatt_Name & "$] WHERE CDate(F4)=''"
    14. Dim dr As System.Data.IDataReader = cmd.ExecuteReader
    16. dtSheet1.Load(dr)
    17. DataGridView1.DataSource = dtSheet1
    18. End Using
    19. End Using

    auf die "cmd.CommandText" zeile aufmerksam geworden. Vorher war es "cmd.CommandText = "SELECT * FROM [" & Blatt_Name & "$]"" und jetzt habe ich die abfrage halt so, wie oben zu sehen, abgeändert das ich mit einer Variable Filtern könnte. Jetzt ist nur die Frage, gibt es eine andere möglichkeit F4 abzufragen als mit CDate(F4)? Es stehen dort halt termine im Format tt.mm.jjjj. Wenn ich nämlich F4 so abfrage und dann in F4 suchen will, kriege ich immer ein leeres DGV. Bzw wie soll ich nacher suchen WENN ich wirklich mit CDate() abfrage. Weil bei CDate(F4) findet er nichts.

    Vielen Dank schonmal im vorraus,

    minnimichi

Facebook
Telefonspende