Excel Datei auslesen und in DataSet speichern

  • VB.NET
  • .NET (FX) 4.5–4.8

    Excel Datei auslesen und in DataSet speichern

    Hallo zusammen,

    folgende Problemstellung:
    Es sollen alle Daten aus einer Excel Datei ausgelesen und in ein Dataset geschrieben werden.
    Die Namen der Excel Spalten sind bekannt.Wie viele Tabellen-Blätter die Excel Datei besitzt bzw. wie diese heißen ist im Vorfeld nicht bekannt.

    Also funktionieren tut der Code, zumindest was ich feststellen konnte.

    Normalerweise arbeite ich mit dem DataSet Designer und erstelle mir im Vorfeld die DataTabels.
    Aber wie integriere ich sowas in einer Klasse?
    Müsste ich dann das vorhandene DataSet der Klasse übergeben?

    Also schaut euch den Code bitte mal an und gebt mir Rückinfo was man anders bzw. besser machen könnte.

    Die Klasse:

    VB.NET-Quellcode

    1. Option Explicit On
    2. Option Strict On
    4. Imports Microsoft.Office.Interop.Excel
    6. Public Class c_Excel
    8. #Region "Excel Tabellen"
    10. Public Class Tabellen
    12. ''' <summary>
    13. ''' Liest alle Tabellendaten einer Excel Datei aus und erstellt daraus ein Dataset. Im DataSet werden dann pro Tabellenblatt ein Datatabel erzeugt.
    14. ''' </summary>
    15. ''' <param name="_Datei">Der komplette Pfad (Als String) wo sich die Excel Datei befindet.</param>
    16. ''' <param name="_DataSet_Name">Name des DataSet (als String)</param>
    17. ''' <returns>DataSet mit allen Daten der Excel Datei</returns>
    18. ''' <remarks></remarks>
    19. Public Shared Function Inhalte_Ermitteln(ByVal _Datei As String, ByVal _DataSet_Name As String) As DataSet
    21. Dim ds As New DataSet(_DataSet_Name)
    23. Dim _excel As Application = New Application
    24. Dim w As Workbook = _excel.Workbooks.Open(_Datei)
    26. 'Alle Tabellen der Excel Tabelle durchlaufen
    27. For i As Integer = 1 To w.Sheets.Count
    29. 'Tabellenbaltt der Excel Datei ermitteln
    30. Dim ws_1 As Worksheet = CType(w.Sheets(i), Worksheet)
    31. Dim _Tabellenblatt As String = ws_1.Name.ToString
    33. 'Datatabel im Dataset erstellen. Der DataTabel Name wird vom Tabellenblatt-Name der Excel Datei genommen
    34. Dim dt As New System.Data.DataTable
    35. dt = ds.Tables.Add(_Tabellenblatt)
    37. 'Zeilen im Datatabel erstellen
    38. Dim col As DataColumn
    39. col = dt.Columns.Add("Kunden_Id", GetType(System.Int32))
    40. col.AllowDBNull = False
    41. col.AutoIncrement = True
    42. col.AutoIncrementStep = 1
    43. col.Unique = True
    45. With dt.Columns
    46. .Add("Kunde", GetType(System.String))
    47. .Add("Name", GetType(System.String))
    48. End With
    50. 'Alle Cellen der Excel Datei in ein 2 Dimensionales Array einlesen
    51. Dim r As Range = ws_1.UsedRange
    52. Dim array(,) As Object = CType(r.Value(XlRangeValueDataType.xlRangeValueDefault), Object(,))
    54. Dim bound0 As Integer = array.GetUpperBound(0) 'Zeilen gesamt des Excel Tabellenbalttes ermitteln
    56. ' Alle Zeilen der Excel Tabelle(Tabellenblatt) durchlaufen und Inhalt in das DataTabel schreiben
    57. For j As Integer = 2 To bound0 'Erst in der 2 Zeile anfangen, da in er 1 die Zeile die Spalten Beschriftung ist.
    58. Dim _newRow As DataRow = ds.Tables(_Tabellenblatt).NewRow
    59. _newRow("Kunde") = array(j, 1)
    60. _newRow("Name") = array(j, 2)
    61. dt.Rows.Add(_newRow)
    62. Next
    64. Next
    66. w.Close()
    68. Return ds
    69. End Function
    71. End Class
    73. #End Region
    75. End Class



    Form 1:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. Dim ds As New DataSet
    3. ds = c_Excel.Tabellen.Inhalte_Ermitteln(My.Application.Info.DirectoryPath & "\" & "Test.xlsx", "Kundenliste")
    5. DataGrid1.DataSource = ds
    6. End Sub
    Bilder

    • Form1.JPG

      14,25 kB, 312×185, 466 mal angesehen

    • Form1_2.JPG

      20,19 kB, 487×163, 438 mal angesehen

    • Excel.JPG

      48,26 kB, 349×875, 418 mal angesehen

Facebook
Telefonspende