Option Explicit
Private WithEvents MyWebBrowser As SHDocVw.InternetExplorer
Private vntaURL As Variant
Private URLIdx As Long
Sub Testlauf_Start()
vntaURL = Array("www.google.de", "www.bing.de", "www.yahoo.de")
URLIdx = LBound(vntaURL)
If MyWebBrowser Is Nothing Then
Set MyWebBrowser = New SHDocVw.InternetExplorer
End If
Call MyWebBrowser.Navigate(vntaURL(URLIdx))
End Sub
Private Sub MyWebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim htmlDoc As MSHTML.HTMLDocument
Dim htmlLinks As MSHTML.IHTMLElementCollection
Dim i As Long
Set htmlDoc = MyWebBrowser.document
Set htmlLinks = htmlDoc.getElementsByTagName("a")
Debug.Print
Debug.Print "URLIdx[" & URLIdx & "] = '" & vntaURL(URLIdx) & "'"
For i = 0 To WorksheetFunction.Min(3, htmlLinks.Length) - 1
Debug.Print Tab(5); "Link" & (1 + i) & " = '" & htmlLinks(i).href & "'"
Next
If htmlLinks.Length > 0 Then
Debug.Print Tab(5); "..."
Debug.Print Tab(5); "(Links insgesamt: " & htmlLinks.Length & ")"
Else
Debug.Print Tab(5); "(keine Links vorhanden)"
End If
If URLIdx < UBound(vntaURL) Then
URLIdx = URLIdx + 1
Call MyWebBrowser.Navigate(vntaURL(URLIdx))
Else
Call MyWebBrowser.Quit
Set MyWebBrowser = Nothing
End If
End Sub