Question

我在excel vba中有一个代码（如下所示），用于获取网页源html。代码工作正常，但它提取的html是不完整的。执行行webpageSource = oHttp.ResponseText时，变量webpageSource包含“DOCTYPE html PUBLIC .......等等，直到结束/ html”，这就是它应该如何。一切都是正确的，直到这里。但下一行debug.print webpageSource只打印了来自“（adsbygoogle = window.adsbygoogle || []）。push（{}）; ......等等的html的一半，直到结束/ html”为什么是这么？我想从返回的响应文本中找到一些字符串，但由于它不完整，我无法这样做。有人可以对此有所了解吗？

由于

Sub source()
    Dim oHttp As New WinHttp.WinHttpRequest
    Dim sURL As String
    Dim webpageSource As String
    sURL = "http://www.somewebsite.com"
    oHttp.Open "GET", sURL, False
    oHttp.send
    webpageSource = oHttp.ResponseText
    debug.print webpageSource
End Sub

编辑：我也没试过就试过.WaitForResponse :(

http响应文本提取不完整的html

0 个答案: