web sayfasından veri alma hk

[chakistes]

merhaba arkadaşlar web sayfasından veri almayı yapamadım.
Sheets("Sayfa1").Range("c" & i).Value = UserForm1.WebBrowser1.Document.getElementsByTagName("list")(0).innerText
Sheets("Sayfa1").Range("c" & i).Value = UserForm1.WebBrowser1.Document.getElementsByTagName("strong").innerText
yukarıdaki 2 kodu denedim fakat olmadı.

 

[Zeki Gürsoy]

getElementsByTagName fonksiyonunun geriye ne döndürdüğünü araştırdığınız vakit, hatayı bulacaksınız...

Bugün okuduğum başlıkların birinde forumun öğretici özelliği kalmadığı mesajı görmüştüm.


.

 

[chakistes]

bir sürü kod denedim fakat yine olmadı. her farklı html sayfasında farklı html kod çıkıyor id veya span olsun bunlardan çözebiliyorum

 

[chakistes]

merhaba arkadaşlar dünden beri denedim kod konusunda acemiyim ama hala yapamadım. denediğim kodlar
Sheets("Sayfa1").Range("c1").Value = UserForm1.WebBrowser1.Document.getElementById("list")
Sheets("Sayfa1").Range("c2").Value = UserForm1.WebBrowser1.Document.getElementById("strong")
Sheets("Sayfa1").Range("c3").Value = UserForm1.WebBrowser1.Document.getElementById("list").innnerText
Sheets("Sayfa1").Range("c4").Value = UserForm1.WebBrowser1.Document.getElementById("strong").innerText
Sheets("Sayfa1").Range("c5").Value = UserForm1.WebBrowser1.Document.getElementsByName("ElementName")("strong").innnerText
Sheets("Sayfa1").Range("c6").Value = UserForm1.WebBrowser1.Document.getElementsByName("list")
Sheets("Sayfa1").Range("c7").Value = serForm1.WebBrowser1.Document.getElementsByName("*")

 

[chakistes]

sorunu çözdüm gerek kalmadı.