Importieren von Textdateien
04.06.2007 16:12:00
Textdateien
ich habe folgendes Problem: Ich importiere eine Textdatei über ein Makro. Beim Importieren verschieben sich die Zellbezüge in Arbeitsblättern, die auf den Bereich verweisen, in den die Textdatei eingefügt wird. Durch welche Option kann ich das vermeiden? Vielen Dank für Eure Unterstützung!
Anbei mein Import-Code:
Sheets("Woche01").Select
Range("B1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;S:\Zentrale\ka\pool\UMSATZ\USB\rdaten\dlmsx002.txt", Destination:=Range _
("B1"))
.Name = "dlmsx002_6"
.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 = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Schöne Grüße
André