Daten importieren in Aktuelle Zelle
06.04.2015 17:29:18
Tom
Hallo Leute,
habe mit einem MakroRecorder bisher das aufgezeichnet um eine csv datei zu importieren...
wie kann ich statt der definierten Zelle C60 die aktuelle ausgewählte Zelle auswählen? Mit Destination:=ActiveCell) hat es nicht funktioniert
Sub Import_CSV()
' Import_CSV Makro
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\Thomas\AppData\Roaming\MetaQuotes\Terminal\ _
9662C61C6715C26397817D3943CECEEC\MQL4\Files\His.csv" _
, Destination:=Range("$C$60"))
.CommandType = 0
.Name = "His_2"
.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(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, _
1, 1, 1, _
1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Über eine kurze Antwort freue mich sehr.