问XMLHTTP60请求不显示整个HTML文档

EN

Const SecForm4 As String = "https://www.secform4.com/significant-buys.htm"

Sub LoadWebPage()

    Dim XMLReq As New MSXML2.XMLHTTP60

    XMLReq.Open "GET", SecForm4, False
    XMLReq.send

    If XMLReq.Status <> 200 Or XMLReq.readyState <> 4 Then
        MsgBox "Problem" & vbNewLine & XMLReq.Status & "-" & XMLReq.statusText
        Exit Sub
    End If

    ParsingHTMLDocument XMLReq.responseText

End Sub

Sub ParsingHTMLDocument(HTMLText As String)

    Dim HTMLDoc As New MSHTML.HTMLDocument

    HTMLDoc.body.innerHTML = HTMLText
    Debug.Print HTMLText

End Sub