den nachfolgenden Code habe ich mit dem Makrorekorder aufgezeichnet und versucht, ihn mit meinem folgenden Wunsch anzupassen. Ich würde nun gerne erreichen, dass die Zuweisung der Textdatei nicht namentlich erfolgt, sondern "userbezogen"(Environ Username?), irgendwie bekomme ich das nicht hin. Angesprochen wird die Textdatei "test.txt", die sich auf dem Desktop im Ordner Abfrage_neu befindet. Was mache ich falsch? - Danke schon jetzt für die Rückmeldungen und Unterstützung.
Gruß - Wolfgang
Sub Texteinfügen()
Worksheets("Textimport").Activate
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\Environ("Username")\Desktop\Abfrage_neu\test.txt", Destination:=Range("A2"))
.Name = "test"
.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 = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub