再請教一下VBA爬文時，如何讓程式等待網頁更新完後再繼續做接續動作？

MaverickRay wrote:
do while .busy or .readystate <>4

dropit wrote:
但你可以參考一下我CODE的64~79行的部分，除了既有的判斷網頁是否開啟外，還寫了暫停機制

Sub test1()
    Dim ttt As Double
    ttt = Timer
    Application.Wait DateAdd("s", 0.3, Now)
    MsgBox Timer - ttt


    MsgBox "Delay 0.3 test"    
    ttt = Timer
    Call Delaytick(0.3)
    MsgBox Timer - ttt
    
End Sub
Sub test2()
    
    Dim web As Object, url As String
    Set web = CreateObject("Microsoft.XMLHTTP")
    url = "https://www.google.com.tw/?gws_rd=ssl"
    
    For i = 1 To 2
        MsgBox Choose(i, "false", "true") & " test"
        
        web.Open "get", url, Choose(i, "false", "true")
        web.send
    
        Do Until web.readyState = 4
            MsgBox "readyState check"
        Loop
    
        MsgBox Len(web.responsetext)
    Next i
    set web=nothing
End Sub

Sub test3()
    Dim ttt As Double
    ttt = Timer
    If Application.Wait(Now + TimeValue("0:00:10")) Then MsgBox Timer - ttt
    ttt = Timer
    If Application.Wait(Now + TimeValue("0:00:10") / 2) Then MsgBox Timer - ttt
    ttt = Timer
    If Application.Wait(Now + TimeValue("0:00:5") / 2) Then MsgBox Timer - ttt
    ttt = Timer
    If Application.Wait(Now + TimeValue("0:00:1")) Then MsgBox Timer - ttt
    ttt = Timer
    If Application.Wait(Now + TimeValue("0:00:1") / 2) Then MsgBox Timer - ttt

End Sub

Sub Delaytick(setdelay As Single)

    Dim StartTime As Double, NowTime As Double
    StartTime = Timer * 100
    setdelay = setdelay * 100
    Do
        NowTime = Timer * 100
        DoEvents
    Loop Until NowTime - StartTime > setdelay

End Sub