Set tables = WebBrowser1.document.getElementsByTagName("table")
a = tables(0)
Dim str As String
str = "11"
str = str & a
MsgBox str
Debug.Print str 小弟想取出第N个TABLE请问怎么处理 ,还有就是为什么MsgBox的结果是11&[object],而Debug没有打印输出,刚搞VB求教,[OBJECT] 代表什么意思
a = tables(0)
Dim str As String
str = "11"
str = str & a
MsgBox str
Debug.Print str 小弟想取出第N个TABLE请问怎么处理 ,还有就是为什么MsgBox的结果是11&[object],而Debug没有打印输出,刚搞VB求教,[OBJECT] 代表什么意思
a = tables(0)
Dim str As String
str = "11"
str = str & a
MsgBox str很简单你得到的是一个table对象,你需要这个对象做啥呢???我给你写个东西你看看的for i=0 to tables.length-1
tables(i) '这个就是一个table对象,你需要做什么呢??
next
for j=0 to tables(i).rows.length-1
for k=0 to tables(i).rows.cells.length-1
msgbox tables(i).rows(j).cells(k).innerText
next
next
next嘿嘿你试试这个....
<body><Table>
<tr>
<td>姓名</td><td>张三</td>
</tr>
</Table><Table>
<tr>
<td>具体信息</td>
</tr>
</Table><Table>
<tr>
<td>1234567890asdfghjkl</td>
</tr>
</Table></body>
</html>
代码如下,小弟现在是通过前一列的判断来取后一列的数据,现在想直接取出个人信息的下一个TABLE中的内容,请问该如何处理,小弟一直没取出???
Dim row As HTMLTableRow, cell As HTMLTableCell
Set tables = WebBrowser1.document.getElementsByTagName("table")
For Each table1 In tables
For i = 0 To table1.rows.length - 1
Set row = table1.rows(i)
j = 0
For Each cell In row.cells
If Left(Trim(row.cells(j).innerText), 2) = "姓名" Then
sNameCh = Trim(row.cells(j + 1).innerText)
End If
Next
Next
Next