主题：请教版主获取网页数据项目的问题

Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("http://youjia.chemcp.com/YuanYouJiaGe.asp")

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim elems As object = web.Document.GetElementsByTagName("table")(5).GetElementsByTagName("tr")
Dim m As Integer = 0
Dim t As Table = Tables("国际市场原油价格表")
For Each elem As object In elems
    Dim i As Integer = -1
    m = m + 1
    If m > 1 Then  '因为网页的表格有标题,如果不判断,就会增加出一个空行
        t.AddNew
    End If
   
    Dim tdelems As object =  elem.GetElementsByTagName("td")
    For Each tdelem As object In tdelems
        i = i + 1
        If t.Cols(i).IsNumeric Then
            t.Current(Cols(i)) = val(tdelem.Innertext.replace("↓", "").replace("↑", "").replace("%", ""))
            t.Current("录入日期") = Date.Today
        Else
            t.Current(Cols(i)) = tdelem.Innertext
            t.Current("录入日期") = Date.Today
        End If
    Next
Next
t.save