excele selenium ile chromdan veri çekme

[fatihemretas]

merhabalar bi sisteden fiyat bilgisi cekmek istiyorum anlık olarak makro kod bilgim yok sitede chromeda calısıyor arastırdım selenium ile çekebilirsiniz dediler ama bunu nasıl yapacagımı bilmiyorum yardımcı olursanız sevinirim

 

[Necdet]

Merhaba,

Site adresini vermeden kim nasıl yardımcı olabilir? Siz adresi verin bir bilen arkadaşımız mutlaka yardımcı olacaktır.

 

[fatihemretas]

www.arcelik.com/buzdolabi sitesinden fiyatları cekecegim

 

[askm]

Bilgisayara selenium kurulumunu yaptınız mı?
Aşağıdaki kodları deneyin.

Sub Arcelik_Selenium()
Dim baglan As New Selenium.ChromeDriver
Dim By As New By
baglan.Start
baglan.Get "https://www.arcelik.com.tr/buzdolabi"

Dim aranan As String
Dim adet As Byte
On Error Resume Next

tutar = 0
aranan = Range("A1").Value
adet = 0

Set modeller = baglan.FindElementsByClass("prd-name")
For Each Model In modeller
    adet = adet + 1
    If InStr(Model.Text, aranan) > 0 Then
        tutar = baglan.FindElementsByClass("prd-price")(adet).Text
        Exit For
    End If
Next Model
If tutar <> 0 Then
    Range("B1") = Trim(tutar)
Else
    Range("B1") = "Aranan model yok"
End If

baglan.Quit
Set modeller = Nothing
End Sub

 

[fatihemretas]

Bilgisayara selenium kurulumunu yaptınız mı?
Aşağıdaki kodları deneyin.

Sub Arcelik_Selenium()
Dim baglan As New Selenium.ChromeDriver
Dim By As New By
baglan.Start
baglan.Get "https://www.arcelik.com.tr/buzdolabi"

Dim aranan As String
Dim adet As Byte
On Error Resume Next

tutar = 0
aranan = Range("A1").Value
adet = 0

Set modeller = baglan.FindElementsByClass("prd-name")
For Each Model In modeller
    adet = adet + 1
    If InStr(Model.Text, aranan) > 0 Then
        tutar = baglan.FindElementsByClass("prd-price")(adet).Text
        Exit For
    End If
Next Model
If tutar <> 0 Then
    Range("B1") = Trim(tutar)
Else
    Range("B1") = "Aranan model yok"
End If

baglan.Quit
Set modeller = Nothing
End Sub

Malesef yapmadım YouTube dan öğrenip yapabilirmiyim

 

[fatihemretas]

Bilgisayara selenium kurulumunu yaptınız mı?
Aşağıdaki kodları deneyin.

Sub Arcelik_Selenium()
Dim baglan As New Selenium.ChromeDriver
Dim By As New By
baglan.Start
baglan.Get "https://www.arcelik.com.tr/buzdolabi"

Dim aranan As String
Dim adet As Byte
On Error Resume Next

tutar = 0
aranan = Range("A1").Value
adet = 0

Set modeller = baglan.FindElementsByClass("prd-name")
For Each Model In modeller
    adet = adet + 1
    If InStr(Model.Text, aranan) > 0 Then
        tutar = baglan.FindElementsByClass("prd-price")(adet).Text
        Exit For
    End If
Next Model
If tutar <> 0 Then
    Range("B1") = Trim(tutar)
Else
    Range("B1") = "Aranan model yok"
End If

baglan.Quit
Set modeller = Nothing
End Sub

denedim selenium basic'i kurdum chrome versiyonunuda içine attım çalıştırdım b1 sutununa sadece tek bi modelin fiyatı geliyor model ismi gelmiyor

 

[askm]

Model ismini a dan alıyor. Fiyatı almak istediğinizi yazmışsınız. Birini yapınca diğerlerini yaparım demiştiniz.

 

[fatihemretas]

bide model ismi gelecek kodu a1 sutuna getircek şekilde söylerseniz diğerlerini yaparım tabi sadece rakam geliyor b1 bu arada çok teşekkür ederim ilginiz için