HTMLDocument referansı 3.sayfa olan anasayfa elementleri göstermiyor

Katılım
4 Nisan 2006
Mesajlar
999
Excel Vers. ve Dili
OFFICE 2021 Türkçe
Merhabalar




(tüm Sayfalardaki url ler değişmiyor)

1.sayfa parola sayfası

2.sayfa kullanıcıların listelendiği sayfa burada devam butouna bastıktan sonra 3. sayfaya geçiliyor

3. sayfa ana sayfa

Aşağıdaki kod ile anasayfaya kadar gidiliyor fakat ana sayfa elementlerine erişim yapılamıyor, değişkenimiz anasayfayı refere etmiyor

HTMLDoc değişkeni 2. sayfanın elementlerini gösteriyor, refere ediyor

Anasayfanın elementlerini nasıl erişim yaptırabiliriz.

Kod:
Sub GetHTMLDocument()
    Dim IE As New SHDocVw.InternetExplorer
    Dim HTMLDoc As MSHTML.HTMLDocument
    Dim HTMLInput As MSHTML.IHTMLElement
    Dim HTMLButtons As MSHTML.IHTMLElementCollection
    Dim HTMLButton As MSHTML.IHTMLElement
    IE.Visible = True
    IE.navigate "http://xxxxxxx"
    Do While IE.ReadyState <> READYSTATE_COMPLETE
    Loop
    Set HTMLDoc = IE.Document
    'Birinci sayfa parola sayfası
    Set HTMLInput = HTMLDoc.getElementById("sap-user")
    HTMLInput.Value = "xxxxxx"
    Set HTMLInput = HTMLDoc.getElementById("sap-password")
    HTMLInput.Value = "xxxxxx"
    Set HTMLInput = HTMLDoc.getElementById("LOGON_BUTTON")
    HTMLInput.Click

    'ikinci sayfa kullanıcı ve davam et sayfası
    Application.Wait Now + TimeValue("00:00:10")
    Set HTMLButtons = HTMLDoc.getElementsByTagName("a")
    For Each HTMLButton In HTMLButtons
       Debug.Print HTMLButton.innerText
       If HTMLButton.getAttribute("innertext") = "Devam" Then
            HTMLButton.Click
            Exit For
       End If
    Next HTMLButton
    '3.cü sayfa ana sayfa
    Set HTMLButtons = HTMLDoc.getElementsByTagName("div")
    For Each HTMLButton In HTMLButtons
        Debug.Print HTMLButton.getAttribute("innertext")
    Next HTMLButton
    Stop
End Sub
 
Üst