TXT Datei in UTF8 umwandeln
31.03.2021 11:50:45
UweD
Momentan habe ich diese Ausgangssituation.
Auf einem Serverlaufwerk liegt eine Datei : \\Server\Verz\TT\Datei.TXT
Diese öffne ich durch Doppelklick in Notepad um dann "Speichern unter" mit Codierung UTF-8 in C:\Temp\NeuerName.txt zu speichern.
Anschließend wird die Neue Datei per Makro weiterverarbeitet.
Es wäre prima, wenn ich dieses kopieren (mit umbenennen) und gleichzeitige Umwandeln mit ins Makro übernehmen könnte.
Ich hab aber weder das ansprechen vom UNC Laufwerk hinbekommen,
noch wie das mit dem speichern unter UTF-8 geschehen soll
Hat jemand eine Idee?
Das ist der Anfang des Makros
Sub Import_Vorfiltern()
Dim FSO As Object, FSODatei As Object
strPfad = "C:\Temp\"
'strPfad = "\\Server\Verz\TT\" 'lieber das hier
strDatAlt = "Datei.txt"
strDatNeu = "DateiNeu.txt"
iSpSKU = 1
Set RNG = TB1.Columns(iSpSKU).Resize(, 4)
Set WF = WorksheetFunction
'Reset
TB2.UsedRange.Offset(1).ClearContents
If Dir(strPfad & strDatAlt) "" Then
'Datei in Array lesen
Set FSO = CreateObject("scripting.filesystemobject")
Set FSODatei = FSO.OpenTextFile(strPfad & strDatAlt, 1)
vDat = Split(FSODatei.readall, vbLf) 'in Zeilen splitten
FSODatei.Close
'Neue Datei erstellen
Close #1
Open strPfad & strDatNeu For Output As 1
'usw.