Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1072to1076
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

Umlaute bei TextDatei-Import

Umlaute bei TextDatei-Import
05.05.2009 21:51:42
Ernst
Hallo Leute,
ich importiere die Daten einer Textdatei mit folgendem Code, der auch funktioniert. Leider werden Sonderzeichen (u.a. Umlaute) nicht korrekt importiert. Woran liegt das bzw. was muß ich ändern?!?
With Sheets("Import").QueryTables.Add(Connection:="TEXT;" & Pfad, Destination:=Sheets("Import").Range("$A$1"))
.Name = "Text File"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh 'BackgroundQuery:=False
Do Until ActiveSheet.QueryTables.Count = 0
ActiveSheet.QueryTables(1).Delete
Loop
End With
Dank euch
Ernst

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Wahrscheinlich andere Codierung...
06.05.2009 03:51:23
Luc:-?
...des Originaltextes, Ernst,
bspw ala DOS (ASCII vs ANSI oder gar EBCDIC)... Das kannst du nur mit dem Austausch der entsprechenden Zeichen gg die richtigen lösen. Mit Sicherheit findest du auch was im Archiv...
Gruß Luc :-?
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige