'模拟点超连接 Private Sub CommandAuto_Click() Dim Doc As IHTMLDocument2 Set Doc = WebBrowser1.Document Dim a As IHTMLElementCollection Set a = Doc.All.tags( "a ") '获得第 14 个表的第二个项目(基于 0) Dim Quote As IHTMLElement Set Quote = a.Item(16, 16) '显示开始标记和结束标记之间的文本 'MsgBox Quote.innerText Quote.Click End Sub
Private Sub CommandAuto_Click()
Dim Doc As IHTMLDocument2
Set Doc = WebBrowser1.Document Dim a As IHTMLElementCollection
Set a = Doc.All.tags( "a ") '获得第 14 个表的第二个项目(基于 0)
Dim Quote As IHTMLElement
Set Quote = a.Item(16, 16) '显示开始标记和结束标记之间的文本
'MsgBox Quote.innerText Quote.Click End Sub
WebBrowser1.Navigate <a href