如何取得网页上表格中的数据？使用哪个接口？有例子吗？

我想获取表格中的数据，有什么好方法？

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

vc的不熟，昨天写了个vb的Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
        Dim X, CtrlRange
        If pDisp Is WebBrowser1.Object Then Exit Sub
        For Each X In WebBrowser1.Document.All
                If X.TAGNAME = "IMG" Then
                        If X.src = "http://bbs.china95.net/DV_getcode.asp" Then
                                Debug.Print "找到你啦！"
                                WebBrowser1.Stop
                                Set CtrlRange = WebBrowser1.Document.Body.CreateControlRange()
                                CtrlRange.Add (X)
                                CtrlRange.ExecCommand ("Copy")
                        End If
                End If
        Next
End Sub
<HTML>
<SCRIPT LANGUAGE="JScript">
function numberCells() {
    var count=0;
    for (i=0; i < document.all.oTable.rows.length; i++) {
        for (j=0; j < document.all.oTable.rows(i).cells.length; j++) {
            document.all.oTable.rows(i).cells(j).innerText = count;
            count++;
        }
    }
}
</SCRIPT>
<BODY onload="numberCells()">
<TABLE id=oTable border=1>
<TR><TH> </TH><TH> </TH><TH> </TH><TH> </TH></TR>
<TR><TD> </TD><TD> </TD><TD> </TD><TD> </TD></TR>
<TR><TD> </TD><TD> </TD><TD> </TD><TD> </TD></TR>
</TABLE>
</BODY>
</HTML>
不好意思贴错了,上面的不是我写的，下面才是
Private Sub Command1_Click()
Dim vDoc, vTag, coll
    Dim i As Integer
    Dim j As Integer
    Set vDoc = ie.Document
    Dim mstrcell As String
    Set coll = vDoc.All("19")
    For i = 0 To coll.rows.length - 1
        For j = 0 To coll.rows(i).cells.length - 1
            mstrcell = mstrcell & Space(4) & coll.rows(i).cells(j).innertext
        Next j
        Debug.Print mstrcell
        mstrcell = ""
    Next i
End SubPrivate Sub Form_Load()
    ie.Navigate "E:\1.htm"
End Sub
htm内容<TABLE id=19 BORDER=1 WIDTH=80%>
<THEAD>
<TR>
<TH>Heading 1</TH>
<TH>Heading 2</TH>
</TR>
</THEAD>
<TBODY>
<TR>
<TD>Row 1, Column 1 text.</TD>
<TD>Row 1, Column 2 text.</TD>
</TR>
<TR>
<TD>Row 2, Column 1 text.</TD>
<TD>Row 2, Column 2 text.</TD>
</TR>
</TBODY>
</TABLE>
取得IHTMLTable interface，可以取出table中的数据
http://dev.csdn.net/article/50/50960.shtm