Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Print #oDatNum als UTF-8 nicht ANSI

Print #oDatNum als UTF-8 nicht ANSI
12.05.2021 15:21:40
Nilo
Hallo zusammen,
erst gestern wurde meine Kopfnuss hier behandelt :)
Jetzt die 2te
Ich erstelle einen txt File mit den Unions imp1 und imp2
Die werden im txt File jeweils untereinander reingeschrieben
Der File wird in ANSI formatiert!
Jetzt haben wir ja die Angewohnheit Umlaute zu nutzen
Also meine Frage:
Wie geht das in UTF-8 oder Unicode oder welches auch immer.
Gefunden habe ich das hier:

Dim fnum As Integer
fnum = FreeFile
Open "myfile.txt" For Output As fnum
Print #fnum, StrConv("special characters: äöüß", vbFromUnicode)
Close fnum
Also habe ich versucht StrConv einzubauen aber irgendwie will es nicht.
Dann habe ich aber lauter Fragezeichen im File drin stehen !?
Mein bisheriger Snipet:

Dim imp1, imp2 As Range
Dim oDatNum As Integer
'InfoRange
Set imp1 = Union(Range("AG3"), Range("R2:R" & Cells(Rows.Count, "R").End(xlUp).Row))
Set imp2 = Union(Range("AH3"), Range("S2:S" & Cells(Rows.Count, "S").End(xlUp).Row))
pfad = ThisWorkbook.Path
oDatNum = FreeFile
Datei = pfad & "\" & InputBox("Bitte geben Sie den Namen der zu exportierenden Datei ein", _
"Eingabe") & ".txt"
Open Datei For Append As #oDatNum
'InfoFile
For Each R In imp1
Print #oDatNum, R.Value
Next
For Each S In imp2
Print #oDatNum, S.Value
Next
Close oDatNum
Danke für die Hilfe im Voraus
Gruß
Nilo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Print #oDatNum als UTF-8 nicht ANSI
12.05.2021 15:52:11
Nepumuk
Hallo,
als Unicode so:
Code:

[Cc][+][-]

Option Explicit Public Sub Test() Dim objRange1 As Range, objRange2 As Range, objCell As Range Dim objFileSystemObject As Object, objTextStream As Object Dim strPath As String ' InfoRange Set objRange1 = Union(Range("AG3"), Range("R2:R" & CStr(Cells(Rows.Count, 18).End(xlUp).Row))) Set objRange2 = Union(Range("AH3"), Range("S2:S" & CStr(Cells(Rows.Count, 19).End(xlUp).Row))) strPath = ThisWorkbook.Path & "\" & InputBox("Bitte geben Sie den Namen der zu exportierenden Datei ein", _ _ "Eingabe") & ".txt" Set objFileSystemObject = CreateObject(Class:="Scripting.FileSystemObject") Set objTextStream = objFileSystemObject.CreateTextFile(strPath, True) ' InfoFile For Each objCell In objRange1 Call objTextStream.WriteLine(objCell.Text) Next For Each objCell In objRange2 Call objTextStream.WriteLine(objCell.Text) Next Call objTextStream.Close Set objRange1 = Nothing Set objRange2 = Nothing Set objTextStream = Nothing Set objFileSystemObject = Nothing End Sub

Gruß
Nepumuk
Anzeige
AW: Print #oDatNum als UTF-8 nicht ANSI
12.05.2021 16:06:08
Nepumuk
Oooooops,
das ist noch ein Fehler drin. So ist es richtig:

Set objTextStream = objFileSystemObject.CreateTextFile(strPath, False, True)
Gruß
Nepumuk
vielen lieben Dank :)
12.05.2021 18:20:51
Nilo
Hallo Nepomuk.
Danke für deine Hilfe.
Gruß
Nilo

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige