selenium vba excel yazdırma problemi

Katılım
3 Temmuz 2009
Mesajlar
10
Excel Vers. ve Dili
2002 10 ver
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

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

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
Kod:
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
 
Katılım
3 Temmuz 2009
Mesajlar
10
Excel Vers. ve Dili
2002 10 ver
Kod:
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
 
Üst