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.
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
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
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
maalesef yine hata veriyor. ben size ürün linkini yazayım sayfadan fiyatı nasıl çekeceğiz bir bakabilirmisiniz Wireless GO IIMerhabalar
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
Kodu olduğu gibi kopyalamama rağmen sorunu çözemedim tüm çalışmayı ekliyorum (henüz tamamlanmadı)Merhabalar
For Each HTMLClas In HTMLClass.getElementsByTagName("span") 'i
For Each HTMLClas In HTMLClass
olarak değiştirniz
anlamadımMerhaba
#4 Nolu mesajdak dosya güncellendi