08.11.2017, 18:00
Hallo Leute,
eigentlich hab ich mir die aktuellen Werte meiner Aktien Werte abgefragt.
Leider bekomme ich jetzt eine Fehler Meldung.
Am besten ich poste mal den Quelltext.
Sub download()
Range("F3:F1000").ClearContents
Dim W As Worksheet: Set W = ActiveSheet
Dim Last As Integer: Last = W.Range("A1000").End(xlUp).Row
If Last = 1 Then Exit Sub
Dim Symbols As String
Dim I As Integer
For I = 3 To Last
Symbols = Symbols & W.Range("A" & I).Value & "+"
Next I
Symbols = Left(Symbols, Len(Symbols) - 1)
With ActiveSheet.QueryTables.Add(Connection:="Text;http://finance.yahoo.com/d/quotes.csv?s= " & Symbols & " &f=sl1", Destination:=Range("$F$3"))
.Name = "quotes.csv?s=AAPL+MCD+DAI.DE&f=sl1"
.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 = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 2, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
als nachricht bekomme ich dann den Anhang.
Hoffe es weiß wer Rat ich komm einfach nicht drauf.
Besten Dank
Bert
eigentlich hab ich mir die aktuellen Werte meiner Aktien Werte abgefragt.
Leider bekomme ich jetzt eine Fehler Meldung.
Am besten ich poste mal den Quelltext.
Sub download()
Range("F3:F1000").ClearContents
Dim W As Worksheet: Set W = ActiveSheet
Dim Last As Integer: Last = W.Range("A1000").End(xlUp).Row
If Last = 1 Then Exit Sub
Dim Symbols As String
Dim I As Integer
For I = 3 To Last
Symbols = Symbols & W.Range("A" & I).Value & "+"
Next I
Symbols = Left(Symbols, Len(Symbols) - 1)
With ActiveSheet.QueryTables.Add(Connection:="Text;http://finance.yahoo.com/d/quotes.csv?s= " & Symbols & " &f=sl1", Destination:=Range("$F$3"))
.Name = "quotes.csv?s=AAPL+MCD+DAI.DE&f=sl1"
.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 = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 2, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
als nachricht bekomme ich dann den Anhang.
Hoffe es weiß wer Rat ich komm einfach nicht drauf.
Besten Dank
Bert