VBA WebScraping嵌套框架中的内容：访问被拒绝
这不是一项重要的任务，但我认为这是一项很容易的任务，而且非常令人沮丧。我试图从MFP中获取当前打印计数器值，但我无法通过页面上的第二帧 事实上，当我试图“深入”页面时，它似乎不断地将我回过头来 我要查找的数据存储在“内容”框中 HTML源代码-嵌套框架VBA WebScraping嵌套框架中的内容：访问被拒绝,vba,internet-explorer,Vba,Internet Explorer,这不是一项重要的任务，但我认为这是一项很容易的任务，而且非常令人沮丧。我试图从MFP中获取当前打印计数器值，但我无法通过页面上的第二帧 事实上，当我试图“深入”页面时，它似乎不断地将我回过头来 我要查找的数据存储在“内容”框中 HTML源代码-嵌套框架 Sub Copy_Count() Dim IE As InternetExplorerMedium Dim strURL() As String Dim HTML_Doc As HTMLDocument Dim HTML_Doc2 As HTM
Sub Copy_Count()
Dim IE As InternetExplorerMedium
Dim strURL() As String
Dim HTML_Doc As HTMLDocument
Dim HTML_Doc2 As HTMLDocument
' There will be additional machines to retrieve data from, current copier must navigate to main page first before counter.
strURL = Split("http://192.168.50.26/?MAIN=DEVICE,http://192.168.50.26/?MAIN=COUNTER&SUB=TOTAL", ",")
Set IE = New InternetExplorerMedium
IE.Navigate2 strURL(0)
Do
DoEvents
Loop Until IE.ReadyState = READYSTATE_COMPLETE
IE.Navigate2 strURL(1)
Do
DoEvents
Loop Until IE.ReadyState = READYSTATE_COMPLETE
Set HTML_Doc = IE.Document
' This get's me to "TopLevelFrame"
Debug.Print HTML_Doc.getElementsByTagName("frameset")(0).getElementsByTagName("frame")(0).Document.Body.innerHTML
' Assign the document of the TopLevelFrame
Set HTML_Doc2 = HTML_Doc.getElementsByTagName("frameset")(0).getElementsByTagName("frame")(0).Document
Debug.Print HTML_Doc2.getElementById("TotalFullColor")
Debug.Print HTML_Doc.getElementById("TotalFullColor").innerText
Debug.Print IE.Document.GetElementsByID("TotalFullColor")(1)
End Sub