获取网页中的数据

Question

怎样用ＶＢ获取网页中的数据存入到本地数据库中？
    Dim doc1 As IHTMLDocument2
    Set doc1 = WebBrowser1.Document
    Dim Tables As IHTMLElementCollection
    Set Tables = doc1.All.tags("TABLE")
    Dim Qu As IHTMLElement
   <font color="red"> Set Qu = Tables.Item(1, 1).tags("TD").Item(2, 2)</font>
    Text1.Text = Text1.Text + Qu.innerText
上面倒数第二行出错

Answer 1

Set Qu = Tables.Item(1, 1).tags("TD").Item(2, 2) 
行出错了！提示“对象不支持属性或方法”

Answer 2

Set Qu = Tables.Item(1, 1).tags("TD").Item(2, 2)  行出错了！提示“对象不支持属性或方法”

Answer 3

Set Qu = Tables.Item(1, 1).all.tags("TD").Item(2, 2)
解决了