Umlaute bei TextDatei-Import
05.05.2009 21:51:42
Ernst
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