页面内容如下
<Table>
<tr>
<td>
aaa
</td>
</tr>
</Table>
用WEbbrowse控件取得页面后如何读取表格中某一单元个的内容
WEbbrowse.document.后面如何写
页面很复杂,用文本串分析的方法不行,文档对象模型应该可以直接取某一单元个的内容吧?如何做
<Table>
<tr>
<td>
aaa
</td>
</tr>
</Table>
用WEbbrowse控件取得页面后如何读取表格中某一单元个的内容
WEbbrowse.document.后面如何写
页面很复杂,用文本串分析的方法不行,文档对象模型应该可以直接取某一单元个的内容吧?如何做
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>
参考上面两段代码,可以达到你要的效果。
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>