如何提取下面网页的表格中的数据？

[northwolves]

执行下面代码后，如何取得网页表格中的最后一列的价格值？

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.abazias.com/builder/builder.asp?view=diamondsearch", fasle
While WebBrowser1.ReadyState <> 4
DoEvents
Wend
WebBrowser1.Document.getelementbyid("chicklet_hover_cushion").Click
End Sub

[BaoBrother]

这个网页内容浓度也太够多了吧，简单一些的网页还打算深入去试试。

[goosen]

关注

[northwolves]

继续顶起。

[griefforyou]

有几种方法
1. 通过DOM直接访问那个Table的最后一列并取得内容
2. 在网页源代码中通过字符串查找来提取

[无·法]

Dim l1&, l2&, s$
s = LCase(WebBrowser1.Document.body.innerHTML)
l1 = InStrRev(s, "resultstableprice c fl")
l1 = InStr(l1, s, "$")
l2 = InStr(l1, s, "<")
MsgBox Mid(s, l1, l2 - l1)

[无·法]

Private Sub Command11_Click()
    MsgBox WebBrowser1.Document.getElementsByTagName("DIV")(398).INNERHTML
End Sub

楼主，我找的好辛苦

[goosen]

网页源码中没有数据的

[northwolves]

[Quote=引用 6 楼 sysdzw 的回复:]
VB codePrivateSub Command11_Click()
MsgBox WebBrowser1.Document.getElementsByTagName("DIV")(398).INNERHTMLEnd Sub
楼主，我找的好辛苦
[/Quote]
很好！再帮忙看看这个：
http://topic.csdn.net/u/20090731/23/86d6d5f1-500a-40f8-895e-2cd8f090f633.html