Nur Dateipfad zurückbekommen
25.08.2005 10:38:35
Timo
gibt es eine Möglichkeit nur den Dateipfade zurückzubekommen, wenn ich den Benutzer via VBA ein "Datei öffnen" Fenster öffne? Es soll eine txt datei importiert werden die Silikolon getrennt ist...
Hier mein erster Versuch... Das Problem ist: Mit "Application.FindFile" kann ich zwar einen Datei auswählen, aber nach der Auswahl bekomme ich direkt das "Externe Daten Import" Fenster und das will ich nicht... Das soll mein VBA Skript machen...
Kann mir Jmd helfen?
Ganz leiben Dank im Vorwege!!!
LG Timo
################################################################
test = Application.FindFile
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & test.Path, _ ########Geht nicht weil ich vorher die daten importieren muss
Destination:=Range("A2"))
.Name = "perflog_233"
.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 = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With