Sub 数据抓取()
Dim IE As Object , URL$

URL = "http://www.jncc.gov.cn/realtymisportal/MonoList.aspx"
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True 

IE.Navigate (URL)   '第一个页面

    Do Until IE.ReadyState = 4  '检查新窗口是否加载完毕（4表示完全加载） 
          DoEvents                  '循环中交回工作权限给系统，以免"软死机" 
    Loop 

    IE.Navigate ("javascript:__doPostBack('DG_Item$_ctl19$_ctl2','')")
    '第二个页面
    '这个地方，URL地址未发生变化！！

    Do Until IE.ReadyState = 4   
         DoEvents 
    Loop 

    IE.Navigate ("javascript:__doPostBack('DG_Item$_ctl3$_ctl1','')")
  '第三个页面，这里url是发生变化的

    Do Until IE.ReadyState = 4   
         DoEvents                 
    Loop 

    IE.GoBack  '不行，退回的是第一个页面 
'这个地方想退回到第二个页面。怎么做？？？ 

End Sub