访问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