VBA Excel数据刮，深层HTML

Question

我试图从标有红色的内部网站信息中搜集。由于HTML的复杂性，我无法独立完成。

我正在使用那种代码，但它并没有让我更深入而不是＆＃34; windowshade-body＆＃34;一部分。

Set myData = IE.Document.getElementById("windowshade").getElementsByClassName("windowshade-body").frames("windowShadeFrame").getElementsByClassName(" ie ie11     win32")(0)
Text = myData.innerHTML
Debug.Print Text

oes任何人都知道如何从中咬一口？会感激任何想法。我在这里阅读了很多主题，但我找不到解决方案。

Answer 1

好的，我找到了解决方案。这对我有用。

Set ifrm = IE.Document.getElementsByTagName("iframe")(5).contentDocument.getElementsByTagName("iframe")(0)
Set text3 = ifrm.contentDocument.getElementsByTagName("tbody")(ifrm.contentDocument.getElementsByTagName("tbody").Length - 1)
  Set text3 = text3.contentDocument.getElementsByTagName("td")(1)

CountRows = CInt(Len(text3.outerHTML) - Len(Replace(text3.outerHTML, "iconSmallPaperclipVertical", ""))) / 26

MaxVal = Right(Split(text3.outerHTML, "id=" & Chr(34) & "0,")(0), 1)
For i = 1 To CountRows

If CDbl(MaxVal) < CDbl(Right(Split(text3.outerHTML, "id=" & Chr(34) & "0,")(0), 1)) Then
    rowID = Split(Split(text3.outerHTML, "o=" & Chr(34))(1), Chr(34) & ">")(0)
    MaxVal = Right(Split(text3.outerHTML, "id=" & Chr(34) & "0,")(0), 1)
End If
Next i