Excel selenium ile veri çekme

[tr00tr]

Merhabalar,

selenium üzerinden siteye giriş kodlarını yazabildim ama ürünlerin fiyat verisini ve ismini çekmem lazım. 120-150 arası ürün olduğundan kodla tek tek girersem çok uzun sürüyor.

siteye giriş olarak kullandığım kod.

Private cd As Selenium.ChromeDriver
Sub OpenChromeFullscreen()
    Set cd = New Selenium.ChromeDriver
    cd.AddArgument "start-maximized"
    cd.Start
    cd.Get "https://www.tekbirsilver.com/uye-girisi-sayfasi"
    'VBA.SendKeys "{F11}"
    cd.FindElementById("ug-email").SendKeys "mail_adresi"
    cd.FindElementById("ug-password").SendKeys "sifre"
    cd.FindElementById("member-login-btn").Click
End Sub

------------------------

A2-3-4 diye eklediğim linkleri xpath yöntemi ile veya farklı da olur.

ÜRÜN KODU FİYAT diye aktarmak istiyorum. bunu çözemedim destek olma şansınız var mıdır?

 

[askm]

class olarak product-price sitede tek mi? Tek ise
cd.FindElementByClass("product-price").text ile çekebilirsiniz. Değilse bu classın üst katmanlarında ıd veya class bularak alınabilir.
Site incelenerek daha net sonuç alınabilir.

 

[tr00tr]

product-price vb. bunlar tek. Sadece a1 deki linki aç "product-price" "suplier_product_code" verilerini b1 c2 yazdır. Daha yeni yeni başladım bu kısmını çözemedim

 

[askm]

Private cd As Selenium.ChromeDriver
Sub OpenChromeFullscreen()
    Set cd = New Selenium.ChromeDriver
    cd.AddArgument "start-maximized"
    cd.Start
    cd.Get Range("A1") '"https://www.tekbirsilver.com/uye-girisi-sayfasi"
    'VBA.SendKeys "{F11}"
    cd.FindElementById("ug-email").SendKeys "mail_adresi"
    cd.FindElementById("ug-password").SendKeys "sifre"
    cd.FindElementById("member-login-btn").Click
    
    cd.Wait 1000
    Range("B1") = cd.FindElementByClass("product-price").Text
    Range("C1") = cd.FindElementByClass("suplier_product_code").Text
    cd.Quit
    
End Sub

 

[tr00tr]

cd.Get "https://www.tekbirsilver.com/uye-girisi-sayfasi"
'VBA.SendKeys "{F11}"
cd.FindElementById("ug-email").SendKeys "mail_adresi"
cd.FindElementById("ug-password").SendKeys "sifre"
cd.FindElementById("member-login-btn").Click
burası üye girişi yapması gereken yer. (fiyatları algılaması için giriş yapması şart devamında ) A1-A2-A3 sütunlarına koyduğum linklere tıklayıp karşısına

Range("B1") = cd.FindElementByClass("product-price").Text
Range("C1") = cd.FindElementByClass("suplier_product_code").Text

yazdırıp. bi alt sütuna geçirmem lazım bu bölümde hata veriyor sürekli. İlk paylaştığım kod sabit kalmalı üye girişi yapıp öyle fiyatları algılıyor

 

[tr00tr]

yaptım ilginiz için teşekkür ederim