Excel 需要VBA XMLHTTP代码方面的帮助才能获得完整的页面加载或任何等待机制

我已经编写了下面的代码来使用VBA的XMLHTTP方法获得整个页面的加载，但每次我都会获得部分加载的数据

我只想在页面完全加载后获得完整的页面详细信息，我只想通过xmlhttp而不是internet explorer类来完成。所以我尝试了所有的等待机制，但都不起作用。

选项显式
子showXML（）
Dim xmlpage作为新的MSXML2.XMLHTTP60
将HTMLDoc设置为新的MSHTML.HTMLDocument
将url设置为字符串
url=”http://www.the-stockmarket.com/product/Moen-MO100429-Repair-Kit-35549?Ns=Primary_Finish%7C1%7C%7CSort_Order%7C1&编号：26796&N=3000556+3000571+3000557+3000558+3000559+3000560+3000561+3000562+3000563+3000564+3000565+3000566“
xmlpage.Open“GET”，url，False
Application.Wait（现在+时间值（“0:00:20”））
xmlpage.send
使用xmlpage
虽然不是。readyState=4“0”，但url是什么？谢谢，我已经用url更新了代码。。我仍然把那个网址放在下面。期待您的帮助。大家好，有人对上述问题有什么解决方案吗？你们想从那个页面得到什么信息？所有嵌入的产品数量，特别是在页面加载后的一小部分。。表示加载页面后花费了一段时间。。我上面与xmlhttp相关的代码只显示在加载数量时出现的“检索..”文本。。。因此，我的代码在这些数量到来之前获取数据。。此代码应等待页面完全加载。。。谢谢url是什么？谢谢，我已经用url更新了代码。。我仍然把那个网址放在下面。期待您的帮助。大家好，有人对上述问题有什么解决方案吗？你们想从那个页面得到什么信息？所有嵌入的产品数量，特别是在页面加载后的一小部分。。表示加载页面后花费了一段时间。。我上面与xmlhttp相关的代码只显示在加载数量时出现的“检索..”文本。。。因此，我的代码在这些数量到来之前获取数据。。此代码应等待页面完全加载。。。谢谢
Option Explicit
Sub showXML()
    Dim xmlpage As New MSXML2.XMLHTTP60
    Dim HTMLDoc As New MSHTML.HTMLDocument
    Dim url As String

    url = "http://www.the-stockmarket.com/product/Moen-MO100429-Repair-Kit-35549?Ns=Primary_Finish%7C1%7C%7CSort_Order%7C1&No=26796&N=3000556+3000571+3000557+3000558+3000559+3000560+3000561+3000562+3000563+3000564+3000565+3000566"

    xmlpage.Open "GET", url, False
    Application.Wait (Now + TimeValue("0:00:20"))
    xmlpage.send

    With xmlpage

        While Not .readyState = 4                '<---------- wait
            Application.Wait Now + TimeValue("0:00:01")
        Wend

        If .Status = 200 Then
            While InStr(1, .responseText, "Retrieving ...", 0) > 0 '<---------- wait again
                Application.Wait Now + TimeValue("0:00:01")
            Wend
        End If
    End With

    Dim myfile As String
    myfile = "D:\test1.txt"

    Open myfile For Output As #11

    Write #11, xmlpage.responseText

    Close #11
End Sub