Csv in xml umwandeln mit VBA

' Variablen  
Dim fso, objXML, rows, cols, headers, i, j, node
' Konstanten  
' Pfad der CSV-Datei  
Const FILE_IN = "C:\data.csv"  
' Pfad für das erstellte XML-File  
Const FILE_OUT = "C:\data_out.xml"  
'Trennzeichen der CSV festlegen  
Const DELIMITER = ","  

'Objekte erstellen  
Set fso = CreateObject("Scripting.FileSystemObject")  
Set objXML = CreateObject("msxml2.domdocument.6.0")  

'XML Objekt mit Document-Element initialisieren  
objXML.loadXML "<?xml version=""1.0"" encoding=""utf-8""?><root></root>"  

'Zeilen der CSV einlesen  
rows = Split(fso.OpenTextFile(FILE_IN).ReadAll(),vbNewLine)
'Überschriften einlesen  
headers = Split(rows(0),DELIMITER,-1,1)
'Für jede Zeile der CSV  
For i = 1 To UBound(rows)
	'Neuen Knoten mit dem Elementnamen "row" erstellen  
	Set node = objXML.createElement("row")  
	'Spalten der aktuellen Zeile in Array splitten  
	cols = Split(rows(i),DELIMITER,-1,1)
	'Daten jeder Spalte als Attribut in den Knoten schreiben  
	For j = 0 To UBound(cols)
		node.setAttribute headers(j),cols(j)
		objXML.documentElement.appendChild node
	Next
Next
'XML-Datei speichern  
objXML.save(FILE_OUT)
MsgBox "Fertig."