javascriptボタンを押した後にレンダリングされるテーブルから要素をスクラップする方法はありますか？実行時エラー「424」私は年次ボタンを押した後エクセルA2に純利息収入の行をこすりする必要が

Question

https://www.investing.com/equities/bnk-of-piraeus-income-statement

は、私はすでに正常四半期純利息収入をかき取りますが、毎年恒例のボタンはdoesntの持っているように見えます私はgetelementbyidメソッドに使用できるidです。

次のコード：MSデバッガランタイムで

Sub getdatafromjavascriptrenderedtables() 
Dim ie As Object 

Set ie = CreateObject("internetexplorer.application") 

With ie 
    .Visible = True 
    .navigate "https://www.investing.com/equities/bnk-of-piraeus-income-statement" 
Do While .busy 
    DoEvents 
Loop 

Do While .readystate <> 4 
    DoEvents 
Loop 

.document.getelementbyid("42631").Click 

Set netinterestincome = .document.getelementbyid("parentTr") 

ThisWorkbook.Sheets(1).Range("A2") = netinterestincome.innertext 

.Quit 

End With 

End Sub 

戻り値は、エラー '424 [オブジェクト必要となり、42631以来、予想コースのthatsのデータ-PID ... Heeeeelpです！とにかくおかげです。

Answer 1

Sub getdatafromjavascriptrenderedtables() 
Dim ie As Object 

Set ie = CreateObject("internetexplorer.application") 

With ie 
    .Visible = True 
    .navigate "https://www.investing.com/equities/bnk-of-piraeus-income-statement" 

Do While .busy 
    DoEvents 
Loop 
Do While .readystate <> 4 
    DoEvents 
Loop 


Set Button = .document.getelementsbyclassname("newBtn toggleButton LightGray")(0) 

Button.Click 

Application.Wait (Now + TimeValue("00:00:03")) 


Set netinterestincome =.document.getelementbyid("parentTr").getelementsbytagname("td")(0) 

ThisWorkbook.Sheets(1).Range("A1") = netinterestincome.innertext 


.Quit 

Set ie = Nothing 

End With 

End Sub