Web ten altın fiyatlarını almak.

[Orion1]

Merhaba.
Aşağıdaki linkteki tablodan altın fiyatlarını alabilirmiyiz?
http://bigpara.hurriyet.com.tr/altin/22-ayar-bilezik-fiyati/

 

[PLİNT]

Merhaba Evren hocam, aşağıdaki gibi işinize yararmı?

Sub Alt()
Set a = CreateObject("htmlFile")
Set x = CreateObject("MSXML2.XMLHTTP")
x.Open "Get", "http://bigpara.hurriyet.com.tr/altin", "False"
x.send
'Application.Wait (Now + TimeValue("0:00:02"))
a.body.innerHTML = x.responseText
On Error Resume Next
Set c = a.getElementById("content")
For Each j In c.getElementsByTagName("*")
If j.classname = "tBody" Then
For Each k In j.getElementsByTagName("ul")
s = s + 1
Cells(s, 1) = k.Children(0).innertext
Cells(s, 2) = k.Children(1).innertext
Cells(s, 3) = k.Children(2).innertext
Next
Exit For
End If
Next
End Sub

 

[FERAZ]

Merhaba Evren hocam, aşağıdaki gibi işinize yararmı?

Sub Alt()
Set a = CreateObject("htmlFile")
Set x = CreateObject("MSXML2.XMLHTTP")
x.Open "Get", "http://bigpara.hurriyet.com.tr/altin", "False"
x.send
'Application.Wait (Now + TimeValue("0:00:02"))
a.body.innerHTML = x.responseText
On Error Resume Next
Set c = a.getElementById("content")
For Each j In c.getElementsByTagName("*")
If j.classname = "tBody" Then
For Each k In j.getElementsByTagName("ul")
s = s + 1
Cells(s, 1) = k.Children(0).innertext
Cells(s, 2) = k.Children(1).innertext
Cells(s, 3) = k.Children(2).innertext
Next
Exit For
End If
Next
End Sub

Merhaba.Alttaki kod satırıyla ilgili detaylı türkçe kaynak varmıdır yada siz açıklayabilirmisiniz?
Son zamanlarda çok denk geldiği için ilgimi çekti.Sağolun.
CreateObject("MSXML2.XMLHTTP")

 

[Orion1]

Sayın PLINT;
Teşekkür ederim.
İyi geceler.