Test & lt;/b>
Bb | Cc |
Gg |
VB code:
Dim mydoc As Object
Private Sub CommandButton1_Click ()
WebBrowser1. Navigate "http://127.0.0.1:8080/2.jsp"
End Sub
Private Sub WebBrowser1_DocumentComplete (ByVal pDisp As Object, the URL As the Variant)
The Set mydoc=WebBrowser1. Document
'MsgBox mydoc. All (7). Outerhtml
Dim I As an Integer, xcell As Integer
Xcell=mydoc. GetElementsByTagName (" td "). The Length
For I=1 To xcell
MsgBox "asaa
"Next
End Sub
Now I can know how many pages are TD tags, how to put this in cycle 3 TD tags in the content of the extracted? Extract all the label content is mydoc. All (0). Outertext, who knows, please help me
CodePudding user response:
For each obj in mydoc. GetElementsByTagName (" td ")The debug. Print obj. Innerhtml
next