问为什么我的网页不能通过VBA Excel跳转到请求的网页

EN

Sub ExtractTablesData()

    Dim IE As Object
    Dim obj As Object
    Dim elemCollection As Object
    Dim evt

    Set IE = CreateObject("InternetExplorer.Application")

    With IE
      .Visible = True
      .navigate ("http://My Web Page")

      While IE.readystate <> 4               ' wait for pages to download
        DoEvents
      Wend

      Do While IE.busy: DoEvents: Loop       ' make sure page has downloaded
      Set elemCollection = IE.Document.getelementsbytagname("TABLE")

      Set evt = IE.Document.createEvent("HTMLEvents")
      evt.initEvent "change", False, True

      IE.Document.getElementsbyClassName("pager-select")(0).selectedIndex = 5 
                                    ' trying to get the 6th page of data

      IE.Document.getElementsbyClassName("pager-select")(0).Click
      IE.Document.getElementsbyClassName("pager-select")(0).dispatchEvent (evt)

      Application.Wait (Now + TimeValue("0:00:02"))

      Do While IE.busy: DoEvents: Loop    ' make sure page has downloaded  

      While IE.readystate <> 4            ' wait for pages to download
        DoEvents
      Wend

    End With   ' IE