Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ' SourceDataSet aus .exl-Datei füllen
        Dim SourceDataSet As DataSet
        Dim ErrorMessage As String
        SourceDataSet = exl2DataSet(Application.StartupPath & "\Test.xls", _
          ErrorMessage)
 
        ' Fehler aufgetreten?
        If ErrorMessage <> "" Then
            MsgBox(ErrorMessage, MsgBoxStyle.Critical)
            Exit Sub
        End If
 
        ' XML-Datei daraus erstellen
        SourceDataSet.WriteXml(Application.StartupPath & "\Test.xml")
    End Sub
 
    ' Funktion: Gibt den Inhalt einer Excel-Datei als DataSet aus
    Public Function exl2DataSet(ByVal FilePath As String, Optional ByRef _
      ErrorMessage As String = "") As DataSet
        ' Neues DataSet
        Dim MyDataSet As New DataSet
        Try
            ' Neue Instanz des Adapters
            Dim DataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM" & _
              "[Tabelle1$]", "Provider=Microsoft.Jet.OLEDB.4.0; Extended" & _
              "Properties='Excel 8.0; HDR=yes'; Data Source=" & FilePath)
            ' Tabelle der Datenbank mit DataAdapter füllen
            DataAdapter.Fill(MyDataSet, "Sheets")
            ' Rückgabewert
            Return MyDataSet
        Catch ex As Exception
            ErrorMessage = ex.Message
        End Try
    End Function

Meine Homepage: www.dartrax.de