使用WebBrowser中遇到的一个关于TABLE难题
下面的程序可以正常将表格中的文本写入文件
Dim Tables, T As IHTMLElementCollection
Set doc = WebBrowser1.Document
Set T = WebBrowser1.Document.frames(1).Document.getElementsByTagName("TABLE")
Set Tables = T.Item(0, 0).All.tags("Table").Item(4, 4)
Open "C:\test.TXT" For Output As #1
For i = 0 To Tables.rows.length - 1
Set ROW = Tables.rows(i)
tmp = ""
For j = 0 To Tables.cells.length / Tables.rows.length - 1
tmp = tmp & "," & ROW.cells(j).innerText
Next
Print #1, tmp
Next
Close #1
但是我想实现逐个点击表格中的每一行,查看了好多资料都没有,恳请各位给出个好主意,明确一下我应该如何实现
[解决办法]
Dim Tables, T As IHTMLElementCollection
Set doc = WebBrowser1.Document
Set T = WebBrowser1.Document.frames(1).Document.getElementsByTagName("TABLE")
Set Tables = T.Item(0, 0).All.tags("Table").Item(4, 4)
For i = 0 To Tables.rows.length - 1
Set ROW = Tables.rows(i)
Call ROW.click()
Next
[解决办法]
这里面是个嵌套表格,用你上面的代码触及不到当中的那个表格，应该换个写法
