selenium vba excel yazdırma problemi

[cessantana]

excele yazamıyorum List objesi hatalı ama yerine ne kullanmalıyım bulamadım lütfen yardım her seferinde hata alıyorum





Sub sele()

Dim w As New Selenium.WebDriver
Dim k, sonsatır As Integer
Dim url As String

Dim a As Selenium.WebElements
sonsatır = Sheets("Sayfa1").Range("A10000").End(xlUp).Row
For k = 3 To sonsatır

url = Sheets("Sayfa1").Range("A" & k)

w.Start "Chrome"
w.Get url
w.Wait 4000

Set a = w.FindElementsByTag("a")

If a.Count = 0 Then
MsgBox "Sayfada yok "

End If

Debug.Print w.FindElementsByTag("a").Count
Range("c1") = a.Count



"bu kısımı çalıştırıp excele yazamıyorum List objesi hatalı ama yerine ne kullannmalıyım bulamadım lütfen yardım"
Dim liste As List
Set liste = w.FindElementsByTag("a")
liste.ToExcel Sheets("Sayfa1").Range("C1")





For i = 43 To 103 Step 2

Debug.Print "a - " & i & a(i).Text

w.Wait 100

Next

Next
w.Wait 2000

End Sub

 

[Necdet]

Merhaba,

url'yi de yazsaydınız da millet kodları inceleme şansı olsaydı.

 

[cessantana]

A3 SATIRINA URL OLARAK "https://www.migros.com.tr/atistirmalik-c-113fb?sayfa=2"
debug print sağlıklı şekilde çalışıyo

 

[veyselemre]

Sub sele()

    Dim w As New Selenium.WebDriver
    Dim k, sonsatır As Integer
    Dim url As String

    Dim a As Selenium.WebElements
    sonsatır = Range("A10000").End(xlUp).Row
    sat = 2
    w.Start "Chrome"
    w.Wait 2000
    For k = 3 To sonsatır
        url = Range("A" & k)
        w.Get url
        w.Wait 4000

        Set urunler = w.FindElementsByCss(".mat-mdc-card.mdc-card")
        For Each urun In urunler
            sat = sat + 1
            Cells(sat, 3) = urun.FindElementByCss(".mat-caption.text-color-black.product-name").Text
            Cells(sat, 4) = urun.FindElementByCss(".price").Text
        Next urun
    Next

End Sub

 

[cessantana]

Sub sele()

    Dim w As New Selenium.WebDriver
    Dim k, sonsatır As Integer
    Dim url As String

    Dim a As Selenium.WebElements
    sonsatır = Range("A10000").End(xlUp).Row
    sat = 2
    w.Start "Chrome"
    w.Wait 2000
    For k = 3 To sonsatır
        url = Range("A" & k)
        w.Get url
        w.Wait 4000

        Set urunler = w.FindElementsByCss(".mat-mdc-card.mdc-card")
        For Each urun In urunler
            sat = sat + 1
            Cells(sat, 3) = urun.FindElementByCss(".mat-caption.text-color-black.product-name").Text
            Cells(sat, 4) = urun.FindElementByCss(".price").Text
        Next urun
    Next

End Sub

veysel bey size çok teşekkür ederim ürün isimleri laikiyle olmuş ben bir ürüne tıklayıp içerisinde bulunan besin değerlerinin tamamını almaya çalışıyorum(bu yöntemle sayfadaki tüm ürünlere tıklayıp o ürüne ait besin değerlerini yazdırabilirmiyim ) css kullanarak bunu halletiğinizi görüyorum bunu öğrenebileceğim bir kaynak varsa bilmek isterim. şimdiden emeğinize sağlık