Office: [VBA] Datei einlesen Codierung ändern

Muecke.1982 · 29. Juli 2019

Hallo miteinander,

ich lese eine Text Datei ein und bekomme zum teil sehr merkwürdige Zeichen ausgegeben :-(.

Im Editor von Windows 10 bekomme ich die richtigen zeichne angezeigt.
Daher gehe ich davon aus das ich das ganze mit der falschen Codierung aufrufe, doch wie kann ich die ändern?

Wie ich die Datei aufrufe:
Code:

fNum = FreeFile()
Open strDateipfad For Input As fNum
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Editor bekomme ich das angezeigt:

Подвеска с регулируемыми...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Excel nach dem einlesen:

'ÐÐ¾Ð´Ð²ÐµÑÐºÐ° Ñ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie kann ich das korrigieren?

Gruß Mücke

:)

Mase · 31. Juli 2019

Hi,

a) kannst Du die Datei teilen?
b) Versuch mal die filesystemobjekt.Opentextdatei mit deren Parameter

EarlFred · 31. Juli 2019

1) PQ kann Unicode-Dateien lesen.

2) Der Textimportfilter kann es auch:
Code:

Option Explicit

Sub Makro1()
Dim strPfad As String

'Anpassen!
strPfad = "Laufwerk:\Pfad\Dateiname.Endung"

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strPfad, _
Destination:=Range("$A$1"))
.Name = "Import"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

3) ADO-Stream kann auch Unicode:
Code:

Option Explicit

Sub test()
Dim obj_ados As Object
Dim strPfad As String

'Anpassen!
strPfad = "Laufwerk:\Pfad\Dateiname.Endung"

Set obj_ados = CreateObject("ADODB.Stream")
With obj_ados
Call .Open
.Charset = "Unicode"
Call .LoadFromFile(strPfad)
Range("A1").Value = .ReadText
Call .Close
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

3) ist "makrointern" - also ohne Abfragen. Kann gewünscht sein, vielleicht auch nicht.

Muecke.1982 · 4. August 2019

Das ist ja cool.

ich habe den Import von mir mal durchlaufen lassen auch wenn wenn ich die Falschen Zeichenkette noch drin stehen habe, dabei hat sich Excel dann aufhängt ;-(.

Ich habe festgestellt das eine der Dateien zu viele zielen hat für Excel das bedeutet das ich mit Excel Leier nicht weiter komme.

Von Power Query versuche ich mich in zwischen etwas fern zu halten, man findet einfach zu wenig im Netz, ich kann mich in zu wenig einlesen etc. Daher werde ich auf einen MySQL Datenbank ausweichen die ich noch habe.
Dazu kann ich im Netz und hier wenigstens mehr erfahren und Lösungen finden.

Danke für deine Unterstützung.

Office: [VBA] Datei einlesen Codierung ändern

[VBA] Datei einlesen Codierung ändern

[VBA] Datei einlesen Codierung ändern

[VBA] Datei einlesen Codierung ändern

[VBA] Datei einlesen Codierung ändern - Similar Threads - VBA Datei einlesen

Excel Vba Mehrere Werte aus mehreren Dateien in eine Tabelle sortieren

VBA Code Dateien Einlesen

CSV-Datei über VBA einlesen und über eine Tabelle ausgeben

Csv-Datei mit VBA einlesen und in einer access Tabelle einfügen

Verzeichnisse aufräumen, VBA

Mehrere XML-Dateien hintereinander in Excel einlesen

CSV Datei mit VBA einlesen. Semikolon getrennt?