- Katılım
- 17 Haziran 2008
- Mesajlar
- 1,871
- Excel Vers. ve Dili
- Microsoft Ofis Profesyonel 2019 x64 TR
- Altın Üyelik Bitiş Tarihi
- 26-03-2020
Merhaba arkadaşlar;
aşağıdaki kod ile webden verileri almaya çalışıyorum. Ancak bu verilerin nerede olduğunu nasıl bulabilirim . ?
yardımcı arkadaşa şimdiden teşekkürler.
aşağıdaki kod ile webden verileri almaya çalışıyorum. Ancak bu verilerin nerede olduğunu nasıl bulabilirim . ?
yardımcı arkadaşa şimdiden teşekkürler.
C#:
Private Sub CommandButton1_Click()
Dim gramAltin As String
Dim dolar As String
Dim euro As String
Dim xmlHTTP As Object
Set xmlHTTP = CreateObject("MSXML2.XMLHTTP")
Dim url As String
url = "https://canlidoviz.com/altin-fiyatlari"
xmlHTTP.Open "GET", url, False
xmlHTTP.setRequestHeader "Content-Type", "text/xml"
xmlHTTP.send
If xmlHTTP.readyState = 4 And xmlHTTP.Status = 200 Then
Dim htmlDoc As Object
Set htmlDoc = CreateObject("htmlfile")
htmlDoc.body.innerHTML = xmlHTTP.responseText
gramAltin = htmlDoc.getElementById("/html/body/div[3]/div/div[3]/div/div[1]/div[1]/div[1]/div[4]/table/tbody/tr[1]/td[3]/div/span").innerText
dolar = htmlDoc.getElementById("dolar-satis").innerText
euro = htmlDoc.getElementById("euro-satis").innerText
MsgBox "Gram Altın Satış Fiyatı: " & gramAltin & vbCrLf & _
"Dolar Satış Fiyatı: " & dolar & vbCrLf & _
"Euro Satış Fiyatı: " & euro
Else
MsgBox "İstek başarısız oldu!"
End If
End Sub
Son düzenleme: