Hallöchen Forum,
ich habe folgenden Code:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & ThisWorkbook.Path & "\jbaop00.s390dets.txt", _
Destination:=Range("A1"))
.Name = "jbaop00.s390dets"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 4, 4)
.TextFileFixedColumnWidths = Array(4, 4, 5, 7, 5, 6, 5, 5, 8, 2, 2, 2, 26, 7, 7, 6, 6)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Damit importiere ich den Inhalt aus einer .txt Datei. Das Format in den letzten 3 Spalten (P,Q und R) ist Datum, wobei der Wert der Zelle z.B. 26.08.05 ist. Mein Problem ist diese interne Darstellung, denn beispielsweise auf einem englischen PC würde das ganze nicht mehr in dieser Form sondern in der Form 26/08/2005 gespeichert werden. Gibt es die Möglichkeit, das ich diese länderspezifische Umwandlung der Daten unterdrücken kann? Damit mein ich aber nicht die Darstellung in der Zelle sondern den tatsächlichen Wert, den Excel bei dem Import in diese Zelle schreibt.
Danke,
Basti.