Mein script speichert eine txt Datei als ANSI, doch ich möchte, dass Sie als Unicode gespeichert wird, wo muss ich "FileFormat:= _xlUnicodeText" einfügen?

...komplette Frage anzeigen

2 Antworten

Benutz FSO:

Das true im FSOFile Objekt ganz hinten gibt den Unicode-Parameter

WriteLine = mit Zeilenumbruch

Write = ohne Zeilenumbruch


Sub test()

Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")

Dim FSOFile As Object
Set FSOFile = FSO.CreateTextFile(ThisWorkbook.Path & "\\\\test.txt", , True) 'Hier deinen Pfad, true = Unicode

For zeile = 1 To 2
FSOFile.WriteLine Cells(zeile, 1).Value 'Hier dein Inhalt definieren
Next zeile

FSOFile.Close

End Sub


Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von motorenhans
13.07.2016, 08:10

PERFEKT! :-) Danke

1

Was möchtest Du wissen?