vba抓取网站内容（ajax返回格式数据）

1、取数据方式

 MyUrl = "javascript:searchStock('res','/webtrade/rzrq/marginTradeFate.do?method=searchStock&totalPage=36&tempDate=Fri Apr 11 09:04:03 CST     2014&pagesize=20&currentPage=" & curPage & "')"
    IE.Navigate MyUrl

 

 只简单这么做可能会数据没加载完 ，所有需要考虑加上一个等待的时间，我是这么做的：

 Dim t1
 t1 = Timer
  While Timer < t1 + 2 '等待时间0.5秒
  Wend

 

 

这样就完美抓取数据了。