• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü get elements ile buradaki fiyat verisini alma

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
J

Jaggedtr

Yeni Üye
Katılım
5 Ocak 2023
Mesajlar
27
Aldığı beğeni
0
Excel V
Office 365 TR
buradaki fiyat verisini bir türlü alamıyorum. önerisi olan var mı?
 

Ekli dosyalar

  • Ekran Alıntısı.PNG
    Ekran Alıntısı.PNG
    37.8 KB · Gösterim: 9
Çözüm
M
Merhabalar

Kod: 
Sub WebPage()



Dim URL9 As String

Dim XMLreq9 As New MSXML2.XMLHTTP60

Dim HTMLdoc9 As New MSHTML.HTMLDocument



Dim HTMLClass As MSHTML.IHTMLElementCollection

Dim HTMLClas As MSHTML.IHTMLElement





URL9 = Sheets("Wireless Go 2").Range("b" & "11")

XMLreq9.Open "get", URL9, False

XMLreq9.send



If XMLreq9.Status <> 200 Then

MsgBox "sayfaya ulasılamadı"

End If

HTMLdoc9.body.innerHTML = XMLreq9.responseText



Set HTMLClass = HTMLdoc9.getElementsByClassName("current-price")

For Each HTMLClas In HTMLClass

    Sheets("Wireless Go 2").Range("c" & "11").Value = HTMLClas.innerText

    Exit For

Next HTMLClas



End Sub
Tarihe göre sırala Oylara göre sırala
aynı web sayfasının diğer ürünlerinde "current-price" class name ile fiyatı alabilirken bu ürününkini alamıyorum
 
Olumlu oy 0 Negatif oyla
Apache config: 
Dim URL9 As String
Dim XMLreq9 As New MSXML2.XMLHTTP60
Dim HTMLdoc9 As New MSHTML.HTMLDocument
URL9 = Sheets("xxxxxxxx").Range("b" & "11")
XMLreq9.Open "get", URL9, False
XMLreq9.send
If XMLreq9.Status <> 200 Then
MsgBox "sayfaya ulasılamadı"
End If
HTMLdoc9.body.innerHTML = XMLreq9.responseText
Sheets("xxxxxxxx").Range("c" & "11") = HTMLdoc9.getElementsByClassName("current-price")(0).innerText

kod bu ve sarı satırda hata veriyor
 
Olumlu oy 0 Negatif oyla
Merhabalar

Kod: 
Sub WebPage()



Dim URL9 As String

Dim XMLreq9 As New MSXML2.XMLHTTP60

Dim HTMLdoc9 As New MSHTML.HTMLDocument



Dim HTMLClass As MSHTML.IHTMLElementCollection

Dim HTMLClas As MSHTML.IHTMLElement





URL9 = Sheets("Wireless Go 2").Range("b" & "11")

XMLreq9.Open "get", URL9, False

XMLreq9.send



If XMLreq9.Status <> 200 Then

MsgBox "sayfaya ulasılamadı"

End If

HTMLdoc9.body.innerHTML = XMLreq9.responseText



Set HTMLClass = HTMLdoc9.getElementsByClassName("current-price")

For Each HTMLClas In HTMLClass

    Sheets("Wireless Go 2").Range("c" & "11").Value = HTMLClas.innerText

    Exit For

Next HTMLClas



End Sub
 

Ekli dosyalar

Son düzenleme:
Olumlu oy 1 Negatif oyla
Çözüm
mesudiye_052' Alıntı:
Merhabalar

Kod: 
Sub WebPage()



Dim URL9 As String

Dim XMLreq9 As New MSXML2.XMLHTTP60

Dim HTMLdoc9 As New MSHTML.HTMLDocument



Dim HTMLClass As MSHTML.IHTMLElementCollection

Dim HTMLClas As MSHTML.IHTMLElement





URL9 = Sheets("xxxxxxxx").Range("b" & "11")

XMLreq9.Open "get", URL9, False

XMLreq9.send



If XMLreq9.Status <> 200 Then

MsgBox "sayfaya ulasılamadı"

End If

HTMLdoc9.body.innerHTML = XMLreq9.responseText



Set HTMLClass = HTMLdoc9.getElementsByClassName("current-price")

For Each HTMLClas In HTMLClass.getElementsByTagName("span")

    Sheets("xxxxxxxx").Range("c" & "11").Value = HTMLClas.innerText

    Exit For

Next HTMLClas



End Sub
Genişletmek için tıkla...
maalesef yine hata veriyor. ben size ürün linkini yazayım sayfadan fiyatı nasıl çekeceğiz bir bakabilirmisiniz Wireless GO II
 
Olumlu oy 0 Negatif oyla
mesudiye_052' Alıntı:
Merhabalar

For Each HTMLClas In HTMLClass.getElementsByTagName("span") 'i

For Each HTMLClas In HTMLClass

olarak değiştirniz
Genişletmek için tıkla...
Kodu olduğu gibi kopyalamama rağmen sorunu çözemedim tüm çalışmayı ekliyorum (henüz tamamlanmadı)
 

Ekli dosyalar

Olumlu oy 0 Negatif oyla
Merhaba

#4 Nolu mesajdaki dosya güncellendi
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst