Welche Fehlermeldungen bekommst Du denn?
Alex
Hat sich schon erledigt, mache es anders, da ich damit keine Xml Datei nach Schema erstellen kann, Thx trotzdem
' ### Wandelt eine Tabelle in CSV-Daten umFunction table_to_csv(ByVal DT As DataTable) As StringDim zeile As String = ""Dim DR As DataRowDim DC As DataColumn' --- SpaltenüberschriftenFor Each DC In DT.Columnszeile += IIf(zeile <> "", ";", "").ToStringzeile += DC.ColumnNameNexttable_to_csv += zeile & chr(13)' --- Ausgabe aller ZeilenFor Each DR In DT.RowsZeile = ""' Schleife über alle SpaltenFor Each DC In DT.Columns