100分如何提取网页数据

Question

http://quote.stockstar.com/stock/external_quote.asp?code=szag000001
用VB里WebBrowser游览上面的地址
我要提取页面右边的成交价，该怎么做？
最好有实例加讲解

Answer 1

使用微软的Microsoft Html object Libary
 '申明窗体级变量
 private as HTMLDOCUMENT
 在webbrowser1中的documentcomplete事件中设置
 set mDoc=webbrowser1.document
 此mDoc就是webbrowser1的document，可以象网页中引用一样

Answer 2

Option Explicit
Private Sub Command1_Click()    Dim o As HTMLDocument
    Dim v As Variant
    Dim lb  As Boolean
    
    
    Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
     DoEvents
    Loop
    Set o = WebBrowser1.Document
    
    For Each v In o.All
        If TypeName(v) = "HTMLTableCell" Then
            If v.innerText = "成交" Then
                lb = True
            Else
                If lb Then
                    MsgBox v.innerText
                    Exit For
                End If
            End If
            
        End If
    Next
    MsgBox "ok"
End SubPrivate Sub Form_Load()
    WebBrowser1.Navigate "http://quote.stockstar.com/stock/external_quote.asp?code=szag000001"
End Sub