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