获取页面源

Question

所以我试图从几个网站上抓取一些信息，但是特别是在将HTML文档元素的innerHTML设置为响应文本时会导致Excel冻结。这是我正在尝试使用的网站上使用的代码的相关部分

Dim url As String, lastRow As Long
Dim XMLHTTP As Object, html As Object
Dim tbl As Object, obj_tbl As Object
Dim TR As Object, TD As Object
Dim row As Long, col As Long

lastRow = Range("A" & Rows.Count).End(xlUp).row

url = "https://www.fantasypros.com/nfl/adp/overall.php"

Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
XMLHTTP.Open "GET", url, False
XMLHTTP.setRequestHeader "Content-Type", "text/xml"
XMLHTTP.send

Set html = CreateObject("htmlfile")
html.body.innerHTML = XMLHTTP.responseText
Set obj_tbl = html.getelementsbytagname("table")

从调试器中逐步执行，由于某种原因，它似乎没有超过倒数第二行。 Excel将完全锁定，完全没有响应（但不会进入无响应模式），我必须在任务管理器中手动结束任务。错误报告只是说AppHangB1。它适用于其他网站，所以我不确定发生了什么，可以使用任何帮助