VBA-Problem
17.05.2017 16:17:23
BuStue
ich möcht in einen bestehenden Arbeitsblatt nach der letzten ausgefüllten Zelle in Spalte A per Makro eine Text-Datei importieren.
Folgendes Script habe ich hierzu:
Sub Makro5()
x = Range("A65536").End(xlUp).Row
Cells(x + 1, 1).Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;\\dxxxxxxxx.local\DFS\PROFILES\" & Environ("username") & "\Desktop\MXXXXXX\ _
4581_B_dXXXXXXX_condxxxxxxx.csv" _
, Destination:=Range("$A$31"))
'.CommandType = 0
.Name = "4581_B_dXXXXXXX_condxxxxxxx.csv"
.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 = 2
.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
Leider bekomme ich es nicht hin, das die Daten nach der letzten beschriebenen Zeile eingefügt werden. Es wird immer A31 ausgewählt.
Könnte mir jemand hierbei behilflich sein.
Mit freundlichen Grüßen
Burghard