Hallo zusammen,
ich arbeite im Moment an einer Möglichkeit, Datensätze zu erzeugen und diese in eine schon bestehende .xml Datei an eine bestimmte Stelle einzufügen. Das Ganze wird dann für mehrere Dateien gleichzeitig erledigt. Im Großen und Ganzen funktioniert es sehr gut, nur leider geht mir beim Abspeichern der Dateien die Codierung verloren und die Umlaute werden nicht mehr korrekt angezeigt.
Im letzten Schritt habe ich das Wegschreiben und Speichern so gelöst:
For Each sh In Worksheets
Datei = Sheets(1).Range("C4").Value & sh.Name & ".xml"
lnglast = sh.Cells(Rows.Count, 1).End(xlUp).Row
Open Datei For Output As #1
For Zeile = 1 To lnglast
Print #1, sh.Cells(Zeile, 1)
Next Zeile
Close #1
Next sh
Kann man in diesem Befehl irgendwie eine Codierung als UTF-8 erzwingen? Oder das irgendwie anders lösen? Ich habe schon ewig nach einer Lösung gesucht aber bin bisher nicht fündig geworden. Es wäre super, wenn ihr mir helfen könntet!
Vielen Dank & Viele Grüße,
Maren