Moin liebes Forum,
den folgenden Code habe ich mit dem Makrorecorder aufgezeichnet. Er liest mir Daten aus einer Textdatei ein. Klappt auch. Aber nun ändert sich der Name der Textdatei ständig. Habe schon versucht, die entsprechende Codstelle mit *.txt anzupassen, aber dann findet er sie nicht mehr. Wie muß ich es also anstellen, dass die Textdatei, ungeachtet des Namens, eingelesen wird?
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Dokumente und Einstellungen\Thorsten\Desktop\Export.txt", _
Destination:=Range("A2"))
.Name = "Export"
.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 = 2
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 2, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
bin Dankbar für jeden Tipp
Gruß
Thorsten