訪問VBA getelementsbytagname Windows 10問題？

Question

我有Access VBA腳本，可以從許多網站中提取數據。 它們與Office 2013和Windows 7完美配合。但是，自從升級到Windows 10以來，我一直遇到間歇性錯誤（不一定在同一位置使用相同的數據），或者有時未從標記中提取數據。 當我使用特定索引訪問特定標簽時，也會出現這種情況

tempV = TDelement.getElementsByTagName("td")(0).innerText

我使用IE作為創建的瀏覽器對象，如下所示：

Set objIE = CreateObject("InternetExplorer.Application")

Windows升級有什么壞處嗎？ （新手，因此對任何不正確的術語表示歉意）

Answer 1

考慮將MSXML的IXMLHTTPRequest對象用於Web服務器請求。 IE不再是Windows上的專用瀏覽器，因此可能不再完全支持Windows 10以后的自動化。

Dim Req As Object, xmlobj As Object
Dim strWeb As String, myFile As String

' READ HTML PAGE
Set Req = CreateObject("MSXML2.XMLHTTP")
Req.Open "GET", "http://www.example.coms/", False
Req.send

' HTML/TEXT
strWeb = Req.responseText
myFile = "C:\Path\To\File.txt"
Open myFile For Output As #1
Write #1, strWeb
Close #1

' XML
Set xmlObj = CreateObject("MSXML2.DOMDocument")
myFile = "C:\Path\To\File.xml"
xmlObj.LoadXML Req.responseText
xmlObj.Save myFile

Set Req = Nothing
Set xmlObj = Nothing