Question

vba 中如何使用webbrowser 对网页中的<TD>内容提取，然后存入EXCEL SHEET1 中的A列

Dim TableRows As Object
Dim TableRow As Object
Dim tdarray(1 To 10) As StringDim i As Object
Private Sub CommandButton1_Click()
WebBrowser1.Navigate "http://127.0.0.1:8080/2.jsp"
WebBrowser1.Document.getElementsByTagName("TD")
End Sub
这样提示错误，对象变量没设置
程序怎么写啊，谁知道

Answer 1

WebBrowser1.Document.getElementsByTagName("TD") 这里有错误啊，你这里根据ID获取到TD，并没有赋值，所以会报错啊，你赋值就可以了

Dim strHTML As String
strHTML=WebBrowser1.Document.getElementsByTagName("TD").innerText

追问

换上你给的代码，出现运行错误91，对象变量或WITH块变量未设置
我使用mydoc.all(0).outerhtml ,可以取得HTML的源代码，但怎样才能输出标签下的源代码

我把源代码放到了EXCELHOME
http://club.excelhome.net/thread-1120820-1-1.html

追答

你网上搜索遍历网页元素，然后输出元素的innerHtml属性试试；看看是否你的网页含有框架，如果不含有框架上面的代码应当是可以的；

追问

谢谢