Laufzeitfehler 1004 / QuerytableRequest
18.02.2023 21:28:48
Marc
ich führe eine Querytable-Abfrage durch, die in einem anderem Makro problemlos läuft und jetzt bekomme ich in einem weiteren Makro seltsamerweise einen Laufzeitfehler 1004, der besagt, dass auf die Datei aus verschiedenen möglichen Gründen nicht zugegriffen werden kann.
Der Code sieht wie folgt aus:
Dim EventSheet As Worksheet
With EventSheet.QueryTables.Add(Connection:= _
"TEXT;https://query1.finance.yahoo.com/v7/finance/download/" & Ticker & "?period1=" & UnixStart & "&period2=" & UnixEnd & "&interval=1d&events=split&includeAdjustedClose=true", Destination:=Range("$A$1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = False
.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(4, 1, 1, 1, 1, 1, 1)
.TextFileThousandsSeparator = " "
.TextFileDecimalSeparator = "."
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Jemand eine Ahnung woran es liegen könnte?