Excel VBA 抓取下拉式選單網頁資料，執行程式時網頁內容為何沒同時觸發更動??

Excel VBA 抓取下拉式選單網頁資料，執行程式時Show entries(顯示多少項目)已選到100，但網頁內容為何沒同時觸發更動??
求解，謝謝~



Sub test()

x = Timer

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")

u = "https://www.gurufocus.com/dividend/awr"

IE.navigate u
IE.Visible = True


Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE

With IE
.document.getElementsByName("history_length")(0).selectedIndex = 3

Do While .readyState <> 4 Or .Busy
DoEvents
Loop
End With

Application.Wait (Now + TimeValue("0:00:03"))
Dim doc As HTMLDocument
Set doc = IE.document
On Error Resume Next

For i = 0 To 30
Worksheets("I").Range("I" & i + 3) = doc.getElementsByClassName("R10 dataTable")(0).getElementsByTagName("td")(i * 6 + 1).innerText
Next i

'IE.Quit '關畢ie
End Sub