dynamischer Pfad Vba
08.02.2013 15:11:24
Justin
leider kriege ich eine Fehlermeldung, dass die Datei nicht gefunden wird und weis nicht warum ?! Wenn mir jmd kurz helfen könnte wäre ich euch sehr dankbar..
Vielen Dank im Vorraus...
Private Sub CommandButton1_Click()
ThisWorkbook.Worksheets("Tabelle2").Range("A8:Z1000").Delete
'2. Datensatz wird Importiert
'Textbox verändert Zeile K1
Cells(1, "K") = TextBox1.Value
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & ActiveWorkbook.Path & Me.Cells(1, _
_
"K"), Destination:=Range("A8"))
.Name = "EAT_test"
.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 = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Anzeige