Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Konvertierung UTF-8 zu ANSI

Konvertierung UTF-8 zu ANSI
15.01.2020 14:11:58
KaEmGe
Hallo,
ich habe schon ein wenig gegoogelt, krieg es aber nicht hin, die vorhandenen Beispiele für mich umzuschreiben.
Folgendes Problem:
Ich lese aus einer Textdatei (ca.20mb) im UTF-8 Format einzelne Textzeilen aus, die Umlaute werden mir im VBA nicht ordentlich im ANSI Format anzeigt. Die Datei selbst darf nicht umcodiert werden, höchstens als Kopie gespeichert werden. Ich möchte nicht z.b. auf Notepad++ zurückgreifen, um die Datei zu konvertieren.
Nun würde ich gern wissen, wie ihr dies rein mit VBA bewerkstelligen würdet - ich würde ungern die Zeile einlesen, um dann auf ein Replace-Array zurück zu greifen, da ich nicht weiss, ob in der Datei wirklich nur Umlaute vorhanden sind, sondern ggf. andere Zeichen.
Hat jemand eine Idee, wie hier vorzugehen ist?

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

Betreff
Datum
Anwender
Anzeige
AW: Konvertierung UTF-8 zu ANSI
15.01.2020 14:47:38
peterk
Hallo
Ein Beispiel
Option Explicit

Sub DatenBesorgen()
    Const adReadLine = -2 'Reads the next line from the stream 
    Const adReadAll = -1  'Reads all characters from the stream, from the current position to EOS 
    
    Dim DateiName As String
    Dim LineFromFile As String
    Dim LineItems As Variant
    Dim row_number As Long

    Dim objStream As Object

    DateiName = "C:\Users\ich\Documents\Herber\131526.txt"  'anpassen 

    Set objStream = CreateObject("ADODB.Stream")
    objStream.Charset = "utf-8"
    objStream.Open
    objStream.LoadFromFile (DateiName)

    row_number = 2

    Do Until objStream.EOS                                'Gesammtes TextDok durchgehen 
        LineFromFile = objStream.ReadText(adReadLine)     'Zeile aus Quelldatei einlesen 
        Worksheets("Tabelle1").Cells(row_number, 1).Value = LineFromFile
        row_number = row_number + 1
    Loop
    Set objStream = Nothing

End Sub

Anzeige
AW: Konvertierung UTF-8 zu ANSI
15.01.2020 14:53:18
KaEmGe
Hallo,
danke für die schnelle Rückmeldung.
Ich hatte jetzt so angefangen - um die Zeilen danach per Array auslesen zu können.
Ich wusste nicht, ob und wie hier ein "ReadLine" verwendet werden kann.
Deine Lösung gefällt mir um einiges besser.
Public Function ReadFileRows(path As String)
Static obj As Object, arrText
obj = VBA.CreateObject("ADODB.Stream")
obj.CharSet = "UTF-8")
obj.Open
obj.LoadFromFile path
ReadFile = obj.ReadText
arrText = Split(ReadFile, vbCrLf)
obj.Close

AW: Konvertierung UTF-8 zu ANSI
15.01.2020 20:42:33
Günther
Moin,
mit Power Query geht das sogar ganz ohne VBA und natürlich mit optischer Kontrolle.
Gruß
Günther
Anzeige

6 Forumthreads zu ähnlichen Themen

charset=UTF-8 in ANSII-Codierung umwandeln ?
Dino

Hallo Excel-Experten,
ich habe in Ordner c:\datenbank\ ca. 20000 Dateien - ohne Dateiendung (je 6-7 KB groß) die mit charset=UTF-8 erstellt worden sind.
Gibt es die Möglichkeit alle Dateien diesen Ordner in charset=iso-8859-2 bzw. ANSII-Codierung zu speichen / zu konvertieren ?
Ich...
04.01.2009 17:03:43
Thread-ID: 1036768
7 Beiträge
Anzeige
Liste ähnlich der Autofilter-Ansicht
handschuck

Guten Abend,
bestimmt eine einfache Frage für Einige, für mich nicht zu lösen: Wie bekomme ich eine editierbare Liste von Namen (jeder Name einmal vorhanden, ähnlich der Autofliter-Ansicht) , wenn diese Namen in einer Spalte unterschiedlich häufig vorkommen?
Bsp-Liste:
Otto
Ma...
31.01.2008 18:47:00
Thread-ID: 947463
3 Beiträge
Textfilter in Powerquery
Christian

Hallo,
wie kann ich in PQ den Textfilter so einsetzen, dass alle Texte gefiltert werden die mit einer Ordnungszahl zwischen 1 und 11549 beginnen?
Texte, die eine Ornungszahl beinhalten, jedoch nicht mit einer Ordnungszahl beginnen sollen nicht gefiltert werden.
Die Ordnungszahlen zu...
11.04.2021 11:21:46
Thread-ID: 1825305
27 Beiträge
Anzeige
Textfilter in Power Query
Christian
Hallo zusammen,
ich würde gerne in power Query Zeilen aussortieren, die 2 Bedingungen erfüllen. Wie in der beigefügten Datei etwa Berufsgruppe 4, die am Standort a keine Arbeitszeit erbringt.
Die Beispieltabelle bekomme ich so angeliefert und sie ist nicht änderbar, wird so in PQ eingelesen....
21.06.2021 09:12:19
Thread-ID: 1835762
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
2
2
26
3
8