Schrott-Tabelle-Methode von Vba

Question

Ich habe diesen Code versucht, und es funktioniert nicht richtig.
Es sollte die Tabelle (Nummer 20 - Order Book (XBT/EUR) durch den Verkauf, rechts). Allerdings bin ich erhalte eine Fehlermeldung:

Objektvariable oder With-Blockvariable nicht gesetzt (Error 91)

Was mache ich falsch?

Sub Kraken() 

    Dim IE As Object 
    Dim tbls, tbl, trs, tr, tds, td, r, c 

    Set IE = CreateObject("internetexplorer.application") 

    IE.navigate "https://www.kraken.com/charts" 
    Application.Wait Now + TimeSerial(0, 0, 2) 

    Set tbl = IE.document.getElementsByTagName("table")(17) 
    Set trs = tbl.getElementsByTagName("tr") 

    For r = 0 To trs.Length - 1 
     Set tds = trs(r).getElementsByTagName("td") 
     If tds.Length = 0 Then Set tds = trs(r).getElementsByTagName("th") 

     For c = 0 To tds.Length - 1 
      ActiveSheet.Range("B20").Offset(r, c).Value = tds(c).innerText 
     Next c 
    Next r 
IE.Quit 
Set IE = Nothing 
End Sub 

Answer 1

Sie erhalten Fehler, weil IE.document.getElementsByTagName("table")(17) nichts zu tbl gibt.

Für Order Book (XBT/EUR) Verwendung Tabelle 1 als:

Set tbl = IE.document.getElementsByTagName("table")(1)