Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
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
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: CSV importieren mit Unicode / UTF-8

VBA: CSV importieren mit Unicode / UTF-8
20.08.2019 11:40:09
Hundepriester
Hallo,
ich habe ein Makro mit dem ich eine CSV Datei importiere und bearbeite. Die Umlaute werden leider nicht korrekt importiert.
Beispiel:
Anstatt "ü" wird "ü" angezeigt.
Anstatt "ö" wird "ö" angezeigt.
Der Code öffnet die CSV, separiert die CSV anhand von Kommata und importiert dann bestimmte Werte.
Lösungen:
Ich habe einige Lösungen gefunden, die passen aber alle nicht zu meinem Code. Ich würde ungern den kompletten Datenimport anders machen. Hat jemand vielleicht eine Idee, wie ich hier weiterkomme?
Aktueller Code: 

Sub DatenBesorgen()
'Daten aus der CSV in die Excel kopieren
Dim DateiName As String
Dim ReplacePrep As String
DateiName = "C:\*****.csv"
Open DateiName For Input As #1
row_number = 10
Do Until EOF(1)
Line Input #1, LineFromFile
LineItems = Split(LineFromFile, ",")
Worksheets("Tabelle1").Cells(row_number, 1).Value = LineItems(3)
Worksheets("Tabelle1").Cells(row_number, 2).Value = LineItems(5)
Worksheets("Tabelle1").Cells(row_number, 3).Value = LineItems(6)
Worksheets("Tabelle1").Cells(row_number, 4).Value = LineItems(7)
row_number = row_number + 1
Loop
Close #1
End Sub

Vielen Dank für Hilfe! Bitte beachten, dass ich kein VBA Profi bin :)

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: CSV importieren mit Unicode / UTF-8
20.08.2019 12:31:44
peterk
Hallo
Du müsstest das FileSystemObject benutzen
Sub DatenBesorgen()
'Daten aus der CSV in die Excel kopieren 
    Dim DateiName As String
    Dim ReplacePrep As String
    Dim LineFromFile As String
    Dim LineItems As Variant
    Dim row_number As Long
    
    Dim objFSO As Object
    Dim objText As Object

    DateiName = "C:\*****.csv"

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objText = objFSO.OpenTextFile(DateiName, 1, , -2)

    row_number = 10
    
    Do Until objText.AtEndOfStream                'Gesammtes TextDok durchgehen 
        LineFromFile = objText.ReadLine     'Zeile aus Quelldatei einlesen 
        LineItems = Split(LineFromFile, ",")

        Worksheets("Tabelle1").Cells(row_number, 1).Value = LineItems(3)
        Worksheets("Tabelle1").Cells(row_number, 2).Value = LineItems(5)
        Worksheets("Tabelle1").Cells(row_number, 3).Value = LineItems(6)
        Worksheets("Tabelle1").Cells(row_number, 4).Value = LineItems(7)

        row_number = row_number + 1

    Loop
    objText.Close
End Sub

Anzeige
AW: VBA: CSV importieren mit Unicode / UTF-8
20.08.2019 12:52:41
Hundepriester
Hallo peterk,
habe den Code genau so umgesetzt. Lief auch Fehlerfrei durch, leider sind Umlaute und andere Sonderzeichen weiterhin falsch.
"ü" = ü etc.
Muss ich noch etwas machen, damit das mit dem FileSystemObject funktioniert?
/Noch als Hinweis: Ich nutze Office16, konnte das bei der Threaderstellung aber nicht auswählen.
Danke schon mal für deine Mühen!
AW: VBA: CSV importieren mit Unicode / UTF-8
20.08.2019 13:45:43
Martin
Hallo peterk,
dversuche es mal so:
https://stackoverflow.com/questions/15151128/read-large-file-line-by-line-with-ado-stream/15166865
Viele Grüße
Martin
AW: VBA: CSV importieren mit Unicode / UTF-8
20.08.2019 13:57:40
Hundepriester
Hi Martin,
danke für den Hinweis. Über den Thread war ich schon gestolpert, ich habe keine Ahnung was "ADO Stream" ist. Auch, wie und an welcher Stelle ich das dann anwende ist mir unklar.
Ich freue mich, wenn du mir da etwas genauer antworten kannst! :)
Als Hinweis noch:
Hundepriester ist der Fragesteller (ich)
Peterk hatte schon eine Antwort gepostet
Anzeige
AW: VBA: CSV importieren mit Unicode / UTF-8
20.08.2019 13:58:32
Hundepriester
Häkchen setzen da Frage noch nicht beantwortet (Muss ich das Häkchen setzen oder kann man das auch editieren!?)
AW: VBA: CSV importieren mit Unicode / UTF-8
20.08.2019 14:03:39
peterk
Hallo
Versuch mal die Zeile 

Set objText = objFSO.OpenTextFile(DateiName, 1, , -2)
auf 

Set objText = objFSO.OpenTextFile(DateiName, 1, , -1)
zu ändern. Wenn das auch nicht hilft, schick mir Bitte einen Kurzen Ausschnitt deiner CSV Datei
AW: VBA: CSV importieren mit Unicode / UTF-8
20.08.2019 14:48:14
Hundepriester
Hallo,
habe das versucht, leider ohne Erfolg.
Getestet mit:
-2: Import klappt, aber Umlaute falsch
-1: Laufzeitfehler 9
0: Import klappt, aber Umlaute falsch
Hier die CSV - habe eine .txt draus gemacht
https://www.herber.de/bbs/user/131526.txt
Ich vermute, es liegt an den Anführungszeichen - die kann ich leider nicht beeinflussen.
Danke und VG!
Anzeige
AW: VBA: CSV importieren mit Unicode / UTF-8
20.08.2019 15:01:34
Günther
Moin,
ich habe die *.txt eben einmal mit Power Query, -> http://www.excel-ist-sexy.de/power-query-das-add-in/ importiert, UTF-8 als Zeichencode gewählt und alles ist gut ... :-)
Gruß
Günther
AW: VBA: CSV importieren mit Unicode / UTF-8
21.08.2019 12:44:07
hundepriester
Hallo Günther,
danke für den Hinweis. Das funktioniert zwar, ich möchte sowas aber ja eben NICHT manuell machen ;)
Danke trotzdem, eine Lösung habe ich ja nun!
AW: VBA: CSV importieren mit Unicode / UTF-8
20.08.2019 15:07:30
peterk
Hallo
Ich hatte eine Denkfehler: Im FileSystemObject kann nur zwischen UNICODE und ANSI unterschieden werden, für UTF brauchen wir ADO
Sub DatenBesorgen()
'Daten aus der CSV in die Excel kopieren 
    Dim DateiName As String
    Dim ReplacePrep 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"

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

    row_number = 10

    Do Until objStream.EOS                       'Gesammtes TextDok durchgehen 
        LineFromFile = objStream.ReadText(-2)    'Zeile aus Quelldatei einlesen 
        LineItems = Split(LineFromFile, ",")

        Worksheets("Tabelle1").Cells(row_number, 1).Value = LineItems(3)
        Worksheets("Tabelle1").Cells(row_number, 2).Value = LineItems(5)
        Worksheets("Tabelle1").Cells(row_number, 3).Value = LineItems(6)
        Worksheets("Tabelle1").Cells(row_number, 4).Value = LineItems(7)

        row_number = row_number + 1

    Loop
    Set objStream = Nothing

End Sub

Anzeige
AW: VBA: CSV importieren mit Unicode / UTF-8
21.08.2019 12:42:41
hundepriester
Klasse! Das hat geklappt.
Vielen Dank! :)

109 Forumthreads zu ähnlichen Themen

Makro zum .CSV Daten Import
Hugo

Hallo,
viele .CSV Daten müssen in Excel importiert werden. Ein funktionierendes Makro würde die Sache für immer sehr erleichtern. Kann man das Folgende mit einem Makro lösen?
Folgende Attribute gelten für den Datei Import:


Datenformat der Spalten ist Standard
-Start in...
17.08.2008 12:48:56
Thread-ID: 1002397
10 Beiträge
Anzeige
VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
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
CSV-Datei gesplittet in Excel importieren
Lennart

Hallo zusammen,
ich bin auf ein (für mich ;-)) größeres Problem gestoßen und konnte dies auch nicht durch Googeln etc. lösen. Folgendes: Ich exportiere aus einem Programm eine Liste mit Namen als CSV-Datei. Diese Namen stehen komplett in einer Spalte. Wenn ich nun meine Excel-Datei mit dies...
06.07.2009 23:23:38
Thread-ID: 1086804
7 Beiträge
VBA Probelm bei Datei einlesen und kopieren
Roland

Moin,
ich ahbe mal wieder ein VBA Problem.
Ich möchte eine Datei öffnen, die Daten daraus in eine andere Datei(Tabellenblatt) kopieren.
Jetzt meldet Excel mir:
Laufzeitfelher '1004': Für diese Aktion müssen alle verbundene Zellen dieselbe Grö0ße haben.
War eigentlich der Mei...
02.02.2010 10:57:34
Thread-ID: 1134995
2 Beiträge
csv - Datei einlesen
Karen

Hallo Forum,
ich möchte gerne in eine Excel Datei Daten per VBA Copy & Paste aus einer *csv Datei einlesen. Leider wandelt er die Zahlen in einen geschriebenen Test um.
Hat jemand einen Tip für mich, wie die Zahlen korrekt eingelesen werden?
Grüße
Karen
23.03.2010 09:02:24
Thread-ID: 1147748
6 Beiträge
CSV-Dateien mit VBA einlesen
Stefan741

Hallo VBA-Freunde,
gestern habe ich fast den ganzen Tag gesucht und ausprobiert, aber keine Lösung für meine Problemstellung gefunden (bzw. war ich nicht in der Lage, eine vorhandene Lösung umzubauen, dass sie lief):
In einem Verzeichnis stehen viele CSV-Dateien. Die Daten sind mit Komm...
24.03.2010 08:00:54
Thread-ID: 1148031
2 Beiträge
CSV-Dateien mit VBA einlesen
Stefan741

Hallo VBA-Freunde,
gestern habe ich fast den ganzen Tag gesucht und ausprobiert, aber keine Lösung für meine Problemstellung gefunden (bzw. war ich nicht in der Lage, eine vorhandene Lösung umzubauen, dass sie lief):
In einem Verzeichnis stehen viele CSV-Dateien. Die Daten sind mit Komm...
24.03.2010 08:02:11
Thread-ID: 1148032
8 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
9
4
4
6
14
6
1
5
1
7
3
3
4
1
5
1
2
13
7
1
1
3
8
5
19