Hey Leute,

habe immer wieder verschiedene txt files zu importieren, habe ein Makro erstellt welches tadellos funkt aber ich möchte anstatt immer dem gleichen File
eine Abfragebox bei Beginn des Makros erhalten mit der ich dann die jeweilige txt Datei suchen kann und diese dann mit immer den gleichen Parametern importieren.

Hat da jemand ne Lösung für mich ?

Grüße ZECI

Hier ein Auszug vom Makro:


Sub neu()

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\01\evac_34950866_103569110_EUR_43_4430_Paper_EFT.txt", Destination:= _
Range("A100"))
.Name = "evac_34950866_103569110_EUR_43_4430_Paper_EFT"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 3
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 9, 9, 1, 1, 2, 9, 9, 9, 5, 9, 9, 1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
.Refresh BackgroundQuery:=False
End With