Не удается получить конкретную точку передачи данных из Yahoo Finance в Excel?

Question

Я пытаюсь вытащить очень конкретное число с страницы Yahoo Finance, но я застрял. Ссылка, где я пытаюсь вытащить эту информацию является:

http://finance.yahoo.com/q/hp?s=AAPL+Historical+Prices

Я заинтересован в получении номер 111,31, который указан в верхней части этой страницы выделены жирным шрифтом. Я написал следующий код для извлечения этой информации, но каждый раз, когда я запускаю его, он говорит: «Объект не поддерживает это свойство или метод». Я подозреваю, что ошибка лежит в строке, где я использую getElementsByClass и getElementsById, чтобы извлечь эти данные.

Sub GetQuote() 
    Dim IE As Object 

    Set IE = CreateObject("InternetExplorer.Application") 

    With IE 
     .Visible = True 
     .navigate "http://finance.yahoo.com/q/hp?s=AAPL+Historical+Prices" 
     Do While .busy: DoEvents: Loop 
     Do While .ReadyState <> 4: DoEvents: Loop 
     With .document 
      Application.Wait (Now + #12:00:05 AM#) 
      Sheets("Sheet1").Range("A3") = .getElementsByClass("time_rtq_ticker").getElementsById("yfs_184_aapl").innerText 

     End With 

    End With 

    Set IE = Nothing 
    End Sub 

Можете ли вы, пожалуйста, взглянуть и сообщить мне, где я поступил неправильно, и как я могу это исправить?

Answer 1

getElementsByClassName method возвращает одного или нескольких объектов. Вам необходимо указать индекс (т. Е. позиция) элемента в коллекции. Попробуйте,

Sheets("Sheet1").Range("A3") = .getElementsByClass("time_rtq_ticker")(0).getElementById("yfs_184_aapl").innerText 

Фактически, идентификатор yfs_184_aapl уникален на этой странице. Вам нужно только,

Sheets("Sheet1").Range("A3") = .getElementById("yfs_184_aapl").innerText 

Обратите внимание, что getElementById method является единственным числом, не getElementsById.