txt-Datei in utf-8 ohne Bom per vba

Hallo,
ich bin ganz neu in vba und möchte per Makro eine Tabelle exportieren. Das Endergebnis soll eine Trennzeichen getrennte .txt-Datei sein mit Codierung UTF-8 ohne BOM. Ich habe verschiedene Tipps in Foren ausprobiert und habe eine Lösung, die fast funktioniert, nur leider ist das Endergebnis UTF8 mit BOM. Ich trenne in zwei Schritte:
1. Export des sheets als .txt Trennzeichen getrennt (funktioniert)
2. Umwalndeln der .txt-Datei in UTF8 (funktioniert, aber ergibt UTF8 mit BOM).
Was muss ich ändern, damit UTF-8 ohne BOM herauskommt? Ich habe schon verschiedene Vorschläge zum direkten Export von UTF-8 ohne BOM gefunden (z.B. https://blog.soprani.at/2017/02/24/csv-in-utf-8-ohne-bom-aus-excel/), die beinhalten aber nie .txt Trennzeichen getrennt. Ich würde also gerne meinen ersten Schritt beibehalten und dann im zweiten etwas ändern, damit UTF-8 ohne BOM herauskommt. Was könnte ich tun? Hier der Code für Schritt 2:


Sub KonvertANSI2UTF()
'** Konvertierung einer ANSI/ASII-Datei in das UTF-8 Format
'** Dimensionierung der Variablen
Dim strTextFile As String
Dim strTextFile_Neu As String
Dim intFile As Integer
Dim sText As String
'** Pfade vorgeben für ANSI- und UTF-Datei
intFile = FreeFile
strTextFile = "C:\Users\L380\Documents\Arbeit\BSB\Phase4_Metadaten\N-3256.txt" 'Pfad der Originaldatei, welche konvertiert werden soll
strTextFile_Neu = "C:\Users\L380\Documents\Arbeit\BSB\Phase4 Metadaten_utf8\N-3256.txt" 'Pfad der neuen UTF-Datei
'** Gesamtes Originial File (ANSI) öffnen und in Varialbe sText einlesen (diese wird anschließend in die UTF-Datei geschrieben)
Open strTextFile For Input As #intFile
sText = Input$(LOF(intFile), intFile)
'** Encoding mit UTF-8, alternativ auch UTF-16 möglich
sCharSet = "utf-8"
'** Schreiben der Daten in die neue UTF-Datei
Set adodbStream = CreateObject("ADODB.Stream")
With adodbStream
.Type = 2 'Stream Typ
.Charset = sCharSet 'Oder utf-16 etc.
.Open
.WriteText sText 'Text schreiben
.SaveToFile strTextFile_Neu, 2 'binary Daten speichern
End With
End Sub

Vielen Dank für Eure Hilfe!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Herbert_Grom,
Puh, das ist anscheinend komplizierter, als ich erhofft hatte. Was ich durch googeln verstanden habe, zusammengefasst:
Ich sollte ein sub schreiben, innerhalb dessen diese Funktion aufgerufen wird (und zwar exakt so, wie sie in der Vorlage steht). Im sub lege ich Werte fest für die Variablen vfile (= Pfad und Dateiname für die zu speichernde .txt-Datei) und vdatatype (=.txt) sowie vcontent.
vContent muss vermutlich der komplette Inhalt der fraglichen Tabelle sein (den ich am Ende Tabstopp-getrennt brauche). Also müsste ich vcontent das Ergebnis zuweisen, das ich bisher durch mein sub zum Export als .txt Tabstopp-getrennt generiert habe. Dafür brauche ich vermutlich eine zweite Funktion, die mir den Inhalt der ursprünglichen Tabelle als Variable ausgibt. Richtig? (Mir unklar: kann ich den kompletten Inhalt einer mehrzeiligen Tabelle als einen einzigen string ausgeben lassen, und das ergibt am Ende wieder eine mehrzeilige Tabelle in der .txt -Datei? Oder muss der ganze Prozess Zeile für Zeile ablaufen, sodass vcontent für jede Zeile neu festgelegt werden muss?)
Ich rufe dann die Funktion1 aus dem sub heraus auf mit einem noch zu findenden Befehl (?), die Funktion 1 greift auf die im sub festgelegten Variablen zu, dadurch auch auf die Funktion2 und sorgt dafür, dass der in Funktion 2 generierte Inhalt unter Berücksichtigung der anderen im sub festgelegten Parameter in UTF-8 ohne BOM gespeichert wird.
Ist das das Konstrukt, das sich aus dem vorgeschlagenen Code bauen ließe? Klingt nach einem ziemlichen Mammutprojekt...

Sub KonvertANSI2UTF() '** Konvertierung einer ANSI/ASII-Datei in das UTF-8 Format '** Dimensionierung der Variablen Dim strTextFile As String Dim strTextFile_Neu As String Dim intFile As Integer Dim sText As String '** Pfade vorgeben für ANSI- und UTF-Datei intFile = FreeFile strTextFile = "C:\Users\L380\Documents\Arbeit\BSB\Phase4_Metadaten\N-3256.txt" 'Pfad der Originaldatei, welche konvertiert werden soll strTextFile_Neu = "C:\Users\L380\Documents\Arbeit\BSB\Phase4 Metadaten_utf8\N-3256.txt" 'Pfad der neuen UTF-Datei '** Gesamtes Originial File (ANSI) öffnen und in Varialbe sText einlesen (diese wird anschließend in die UTF-Datei geschrieben) Open strTextFile For Input As #intFile sText = Input$(LOF(intFile), intFile) '** Encoding mit UTF-8, alternativ auch UTF-16 möglich sCharSet = "utf-8" '** Schreiben der Daten in UTF Format Set adodbStream = CreateObject("ADODB.Stream") With adodbStream .Type = 2 'Stream Typ .Charset = sCharSet 'Oder utf-16 etc. .Open .WriteText sText 'Text schreiben .flush End With Set adodbBinStream = CreateObject("ADODB.Stream") With adodbBinStream .Open .Type = 1 ' TypeBinary End With 'Strips BOM (first 3 bytes) adodbStream.Position = 3 'skip BOM adodbStream.CopyTo adodbBinStream adodbBinStream.SaveToFile strTextFile_Neu, 2 'binary Daten speichern End Sub

Beliebteste Forumthreads (12 Monate)

txt-Datei in utf-8 ohne Bom per vba

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread