Soru Selenium İle siteden Link alma

[mamilim90]

Herkese merhaba www.dolap.com sitesinden örnek ayakkabi bölümünde 1.sayafada 18 ürün var var bu 18 urunun linklerini almak istiyorum a birturlu basaramadim cok güzel bir bot yaptım kendime yorum atıyor begeni yapıyor takip ediyor ama linkleri alamıyorum bir çok kaynak araştırdım basaramadim örnek 18 ürününun linkini alacak excele alt alta yazacak

 

[askm]

Aşağıdaki şekilde deneyin.

Sub Dolap_Linkleri_Al()
Dim askm As New Selenium.WebDriver, liler As WebElements, li As WebElement
Dim link As String
askm.Start "chrome"
askm.Get "https://dolap.com/spor-ayakkabi"
On Error Resume Next
Set liler = askm.FindElementsByClass("img-block")

For Each li In liler
    link = li.FindElementByTag("a").Attribute("href")
    Debug.Print link
Next li

Set liler = Nothing
askm.Quit

End Sub

 

[mamilim90]

hocam kod kayet güzel çalışıyor bunu debug değilde direk excel hücreye yazdırabilirmiyiz çünki baya kod toplayacağım ve ordan işelmlere devam ettireceğim otomatik

 

[askm]

Sub Dolap_Linkleri_Al()
Dim askm As New Selenium.WebDriver, liler As WebElements, li As WebElement
Dim link As String
askm.Start "chrome"
askm.Get "https://dolap.com/spor-ayakkabi"
On Error Resume Next
Set liler = askm.FindElementsByClass("img-block")
a=1
For Each li In liler
link = li.FindElementByTag("a").Attribute("href")
Cells(a,1)=link
a=a+1
Next li

Set liler = Nothing
askm.Quit

End Sub

 

[mamilim90]

hocam söyle birşey yaptıyıroum sadece ilk sayfadaki 18 ürünü çekiyor ama debugda hepsini çkeiyor hücreye yazdırırken ilk 18 ürün

Set liler = bot.FindElementsByClass("img-block")
a = 1
For Each li In liler
link = li.FindElementByTag("a").Attribute("href")
Cells(a, 1) = link
a = a + 1


Next li
Dim Tekrarla As Integer
Dim say As Integer

Tekrarla = InputBox("Kaç Kişiye Mesaj Atılacak", "Mesaj")
For say = 1 To Tekrarla
bot.Wait (100)
On Error Resume Next
bot.FindElementByXPath("//*[@id='main']/div/div/div[2]/div[2]/div/div[1]/div[2]/ul/li[2]/a").Click
bot.FindElementByXPath("//*[@id='main']/div/div/div[2]/div[2]/div/div[1]/div[2]/ul/li[3]").Click
Next