Çözüldü e-ticaret sitesinden veri çekme

[takvalat]

Merhaba, vba internette bulunan eğitim videolarından öğrenmeye çalışıyorum. Komutları yazmayı bilmiyorum ancak mantığını anlamaya çalışıyorum. Konuyla ilgi doğru dürüst bilgim yok ama videolarda öğrendiklerimi farklı siteler üzerinde uyguluyorum.

Fiyat ve başlığa ulaşmaya çalışıyorum nasıl bir kod ile ulaşabilirim bana yardımcı olabilir misiniz ?






Link

https://tahtakalespot.com/product/knitex-2142-pvc-vc-kapi-kol-tkm/08d9889f-5bcd-4803-895a-f18dee2f412d

Option Explicit
Sub haha()
Dim i, sonsat As Integer
Dim url As String
Dim XMLreq As New MSXML2.XMLHTTP60
Dim HTMLdoc As New MSHTML.HTMLDocument
sonsat = Sheets("Veri").Range("A10000").End(xlUp).Row
For i = 3 To sonsat
On Error Resume Next
url = Sheets("Veri").Range("A" & i)
XMLreq.Open "Get", url, False
XMLreq.send
If XMLreq.Status <> 200 Then
   MsgBox "Sayfaya Ulaşılamadı"
   Exit Sub
End If
HTMLdoc.body.innerHTML = XMLreq.responseText
Sheets("Veri").Range("C" & i) = HTMLdoc.getElementsByClassName("price")(0).innerText

 

[aeGNoR]

GetElementsByClassName("price") kısmı çalışmıyor. Sebebi nedir bilmiyorum. Üzerinde denemeler yapıyorum. Bir sonuca ulaşırsam paylaşacağım.

 

[takvalat]

GetElementsByClassName("price") kısmı çalışmıyor. Sebebi nedir bilmiyorum. Üzerinde denemeler yapıyorum. Bir sonuca ulaşırsam paylaşacağım.

İlginize çok teşekkür ederim Sonuçlandırsanız çok sevinirim

 

[aeGNoR]

Çok uğraştım olmadı. Selenium denedim o direkt versiyon hatası veriyor bende. Selenium siz de çalışıyorsa onunla dener misiniz? O çok daha kullanışlı ayrıca.

 

[askm]

Selenium bilginiz var mı? Kurulum yapabilirseniz kodlar konusunda yardımcı olayım.

 

[aeGNoR]

İlginize çok teşekkür ederim Sonuçlandırsanız çok sevinirim

Bende herhangi bir şekilde etiketleri değişkene almıyor. Selenium indireyim kurayım dedim onda da sürüm ile ilgili arıza çıkardı.
Şunu farkettim ki internetten herhangi bir şekilde veri çekebileceğim bir kod yazabilecek durumda değilmişim. Farklı yöntemler var mı onları araştırayım bari, bulabilirsem hem ben bir şey öğrenmiş olurum hem de sizin işinize yaramış olur.

 

[takvalat]

Selenium bilginiz var mı? Kurulum yapabilirseniz kodlar konusunda yardımcı olayım.

Merhaba, selenium kurdum hazırladım kodlar konusunda da yardımcı olur musunuz ?

 

[takvalat]

Bende herhangi bir şekilde etiketleri değişkene almıyor. Selenium indireyim kurayım dedim onda da sürüm ile ilgili arıza çıkardı.
Şunu farkettim ki internetten herhangi bir şekilde veri çekebileceğim bir kod yazabilecek durumda değilmişim. Farklı yöntemler var mı onları araştırayım bari, bulabilirsem hem ben bir şey öğrenmiş olurum hem de sizin işinize yaramış olur.

İlginize çok teşekkür ederim

 

[aeGNoR]

Merhaba, selenium kurdum hazırladım kodlar konusunda da yardımcı olur musunuz ?

Dim ch as Seneium.ChromeDriver
ch.Get "websitesi adresi"

Dim Element as Selenium.WebElement
Dim Elements As Selenium.WebElements

Set Elements = ch.FindElementsByClass("price")

For Each Element In Elements
    Debug.Print(Element.innerHTML)
Next Element

Seleniumda kabaca şöyle bir mantık vardı diye hatırlıyorum. Yine de yanılıyor olabilirim.

 

[Caylak]

Merhabalar,
Ekli örneği inceleyin

 

[askm]

Aşağıdaki şekilde deneyin.

Sub test()
Dim baglan As New Selenium.WebDriver
baglan.Start "Chrome"

sonsat = Sheets("Veri").Range("A10000").End(xlUp).Row
For i = 3 To sonsat
    url = Sheets("Veri").Range("A" & i)
    
    baglan.Get url
    baglan.Wait 3000
    
    Sheets("Veri").Range("C" & i) = baglan.FindElementsByClass("price")(2).FindElementsByTag("span")(1).Text
    
Next i
baglan.Quit
End Sub