Web' den veri alma buton click

[tamer42]

Merhabalar,

(http://info.nowgoal3.com/League/8)

Ekli görselde, "GER D2" ve "GER D3" yazan butonlara tıklatma yaptırmayı bir türlü başarmadım, yardımcı olabilirseniz sevinirim.

iyi haftalar, iyi Çalışmalar.

myID = "leagueDiv4"
Set HTMLTable = ht.getElementById(myID)

        For Each HTMLCell In HTMLTable.getElementsByTagName("li")
            
          Sht.Cells(r, 2) = HTMLCell.innerText
                    
              If HTMLCell.innerText Like "GER D2" Then
                    
                    HTMLCell.Click
                    
               End If
                    

          Next HTMLCell

 

[yunus788]

Merhaba istediğiniz bağlantıları url adresindende çağırabilirsiniz. Ama ben tıklatarak açan bir örnek paylaşıyorum dosyanıza uyarlayabilirsiniz.
Önce GER D2 7 saniye sonrada GER D3 bağlantısına tıklayacaktır.

 

[tamer42]

Merhaba istediğiniz bağlantıları url adresindende çağırabilirsiniz. Ama ben tıklatarak açan bir örnek paylaşıyorum dosyanıza uyarlayabilirsiniz.
Önce GER D2 7 saniye sonrada GER D3 bağlantısına tıklayacaktır.

Teşekkürler Yunus Hocam,
ben aşağıdaki gibi bir çözüm ürettim, biraz uzun oldu ama;
uzun kodu nasıl kısaltabiliriz onu şimdilik bilemiyorum.

Set HTMLDoc = IE.document
    
    myID = "new_date_me"
    myCls = "left_list3"
    
       r = 8
       
       
    Set HTMLDiv = HTMLDoc.getElementById(myID)

        For Each HTMLTables In HTMLDiv.Children
        
        If HTMLTables.className Like myCls Then
    

            For Each HTMList In HTMLTables.Children(0).Children

                For Each HTMLRow In HTMList.Children

                    If HTMLRow.innerText Like ara2 Then
                    
                       HTMLRow.Click
                        
                       GoTo 40
                    
                    End If
                    
                    r = r + 1
     
                Next HTMLRow
        
     
          Next HTMList
          
        End If
        
       Next HTMLTables
40: