主题：[求助] 网页数据采集问题

之前银行外汇牌价的例子，通过网页采集数据
问题：无法采集数据,如何改？
采集按钮代码：
Dim ObjIE As Object
Dim Dom As Object
Dim R As Object
ObjIE = CreateObject("internetexplorer.application")

With ObjIE       
    .Navigate("http://www.boc.cn/sourcedb/whpj",True)
    Do While .ReadyState <> 4
        Application.DoEvents
    Loop
    Dom = .Document
StatusBar.Message1=" 正在采集,请稍候.... "
    R = Dom.All.tags("table")(7).Rows
        Dim Tbl As Table = Tables("外汇牌价分析表")
             For i As Integer = 1 To R.Length-1
                Dim TmpRow As Row = Tbl.AddNew
                 For j As Integer  = 0 To R(i).Cells.Length - 1
                   TmpRow(Tbl.Cols(j).Name) = R(i).Cells(j).innerText
                 Next
             Next
        Tbl.AutoSizeCols
         .quit
End With
StatusBar.Message1=" 采集完成 "

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.9.19.1
错误所在事件：窗口,数据采集,Button2,Click
详细错误信息：
未设置对象变量或 With 块变量。

 改成

    R = Dom.All.tags("table")(1).Rows

 呃，不应该，你可以不quit的。

 或者可以用webbrowser

Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("http://www.webxml.com.cn/WebServices/WeatherWebService.asmx/getWeatherbyCityName?theCityName=59316")
 
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

output.show(web.Document.Body.InnerText)