Suchen Sie nach Tabelle in einem HTML VBA - vba

Habe den folgenden Codeblock ... Ich habe 5 Tabellen mit dieser Antwort, aber ich interessiere mich nur für eine der Tabellen auf der Seite ... Ich brauchte nur eine Tabellendaten (eine bestimmte), auf die die unten stehende Antwort gibt.

Ich habe versucht "For Each Tbl In".getElementsByClassName ("rgMasterTable"), um diese bestimmte Tabelle abzurufen. Dies gibt mir das Objekt, das nicht zur Laufzeit unterstützt wird. Wie erhalten Sie eine bestimmte Tabelle von einer HTMl-Seite mit mehreren "TABLE" -Tags

      For Each tbl In ie.Document.getElementsByTagName("TABLE")
tabno = tabno + 1
nextrow = nextrow + 1
Set rng = ws.Range("B" & nextrow)
rng.Offset(, -1) = "Table " & tabno
For Each rw In tbl.Rows
For Each cl In rw.Cells
rng.Value = cl.outerText
Set rng = rng.Offset(, 1)
I = I + 1
Next cl
nextrow = nextrow + 1
Set rng = rng.Offset(1, -I)
I = 0
Next rw
Next tbl

ws.Cells.ClearFormats

Der HTML-Code sieht so aus

table class = "rgMasterTable" border = "0" id = "ctl00_ContentBody_rgridCDPList_ctl00" style = "width: 100%; Tabellenlayout: auto; leere Zellen: show;"

Antworten:

Dim tbl
Set tbl = ie.Document.getElementById("ctl00_ContentBody_rgridCDPList_ctl00")

sollte Ihnen diese bestimmte Tabelle geben