Как автоматизировать статистику ключевых историй из Yahoo? - PullRequest
Новая
       72

Как автоматизировать статистику ключевых историй из Yahoo?

0 голосов
/ 24 октября 2019

С помощью приведенного ниже кода я могу получить текущую статистику ключей от Yahoo для нескольких тикеров. Знаете ли вы, можно ли изменить код ниже, чтобы получить исторические данные? Например, статистика для тикера зарегистрирована 3 года назад?

Большое спасибо заранее за ваши ответы и вам за вашу помощь 

Sub KeyStat()

For i = 2 To Sheets(1).Cells(1, 1).End(xlToRight).Column

ticker = Sheets(1).Cells(1, i)
qurl = "https://finance.yahoo.com/quote/" & ticker & "/key-statistics?p=" & ticker & ""

Sheets(2).Select
Sheets(2).Cells.Clear

    With ActiveSheet.QueryTables.Add(Connection:="URL;" & qurl, Destination:=Sheets(2).Range("A1"))
        .BackgroundQuery = True
        .TablesOnlyFromHTML = False
        .Refresh BackgroundQuery:=False
        .SaveData = True
    End With

Sheets(2).Range("B3:B69").Copy
Sheets(1).Select
Cells(2, i).Select
ActiveSheet.Paste
CutCopyMode = False

Next i


End Sub
...