Datei aus Excel erzeugen in UTF-8 Format

Computer: Software & Programmierung Office Software
#1

Tach zusammen,

aus Daten in Excel erzeuge ich eine Datei. Die eigentliche Dateierzeugung läuft über den Code:

FileName = strPfadname &"\" & strDateiname
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(FileName, True, True)
ErzeugeNeueTextdatei = strPfadname & "\" & strDateiname

Das funktioniert, allerdings wird die Datei im ANSI Format gespeichert. Um sie in UTF-8 zu speichern habe ich den Code geändert in

FileName = strPfadname &"\" & strDateiname
Set fs = CreateObject("Scripting.FileSystemObject")
fs.Charset = "utf-8"
Set a = fs.CreateTextFile(FileName, True, True)
ErzeugeNeueTextdatei = strPfadname & "\" & strDateiname

Jetzt macht das Makro gar nichts mehr. Wo liegt der Fehler?

fragt sich

R.

#2

Hallo,

eine Möglichkeit besteht, einen ADODB.Stream zu schreiben zu nutzen.
in etwa so

Set strOut = CreateObject(„ADODB.Stream“)
strOut.Type = 2
strOut.charSet = „utf-8“

dann

.Open
.WriteText „Eine Textzeile“
.SaveToFile filename,2 ’ 2 wichtig Save binary

Tschau
Peter

#3

So jetzt,

hab Deine Lösung fast übernommen:

Set AdoList = CreateObject("ADODB.Stream")
AdoList.Charset = "UTF-8"
AdoList.Mode = adModeReadWrite
AdoList.Type = adTypeText
AdoList.Open
AdoList.SaveToFile keyFilename, adSaveCreateOverWrite
AdoList.Close
Set AdoList = Nothing
Next

Ralph