Affichage de innerHTML des éléments dans IE dans la fenêtre immédiate

Question

Je navigue vers une page Web dans IE en utilisant VBA. Les éléments de la page Web se chargent dynamiquement après quelques secondes. J'essaie de travailler avec une structure arborescente avec des liens dans cette page Web. Donc, je voulais voir le code HTML en utilisant intérieure le code suivant,

Sub treemenutest() 

    Dim ie As SHDocVw.InternetExplorerMedium 
    Dim doc As MSHTML.HTMLDocument 
    Dim elements3 As MSHTML.IHTMLElementCollection 
    Dim nameValueInput3 As MSHTML.HTMLInputElement 
    Dim LIS As IHTMLElementCollection 
    Dim LI As IHTMLElement 

    Set ie = New SHDocVw.InternetExplorerMedium 
    ie.Visible = True 
    ie.navigate Sheet1.TextBox1.Value 'web page URL 

    Do Until Not ie.Busy And ie.readyState = 4 
     DoEvents 
    Loop 

    Set doc = ie.document 

    Set elements3 = doc.getElementsByName("OK") 
    If Not elements3 Is Nothing Then 
     Set nameValueInput3 = elements3(1) 
      If Not nameValueInput3 Is Nothing And nameValueInput3.Type = "submit" Then _ 
        nameValueInput3.Click 
      End If 

    Set LIS = ie.document.getElementsByTagName("a") 
    For i = 0 To LIS.Length - 1 
    Debug.Print LI.innerHTML 
    Next 

    End Sub 

Debug.Print n'affiche aucune information dans la fenêtre immédiate. Y at-il un problème avec le codage ou est-ce parce que le contenu de la page Web est dynamique?

Toute information sera utile.

Answer 1

J'utiliser une boucle foreach

For each LI in LIS 
    Debug.Print LI.innerHTML 
Next 

Mais vous pouvez aussi parcourir les balises comme ceci:

For i = 0 To LIS.Length - 1 
    Debug.Print LIS.item(i).innerHTML 
Next