İyi akşamlar,
2014 yılına ait bütün günleri alt alta yazdıracığım. Tarihlerin yan tarafına ise o güne ait usd ve Euro kurunu aldırmak istiyorum. Yardımcı olabilir misiniz?
(23/10/2014, 00:17)Conqueror20 yazdı: İyi akşamlar,
2014 yılına ait bütün günleri alt alta yazdıracığım. Tarihlerin yan tarafına ise o güne ait usd ve Euro kurunu aldırmak istiyorum. Yardımcı olabilir misiniz?
Arkadaşlar bu konuda yardımcı olabilecek kimse yok mu?
bu program işinizi görermi
(24/10/2014, 20:53)simendifer yazdı: bu program işinizi görermi
bu program kurları sıfır olarak alıyor. merkez bankasının sitesi değişti. o yüzden veriyi yanlış alıyor olmasın
(29/10/2014, 01:17)Conqueror20 yazdı: (24/10/2014, 20:53)simendifer yazdı: bu program işinizi görermi
bu program kurları sıfır olarak alıyor. merkez bankasının sitesi değişti. o yüzden veriyi yanlış alıyor olmasın
Html uzantılar iptal xml üzerinden gidin
sayın Conqueror20,
Merkez Bankasından Tabloya Kur Alma
yukarıdaki bağlantıda yer alan konu içerisinde sayın ozan bey tarafından sunulmuş bir örnek mevcut.fikir vermesi açısından;(her ne kadar
Access kategorisinde olsa dahi) örneği incelemek sureti ile gerek işleyişi öğrenebilir gerekse de denemede bulunarak kendi örneğinize adapte etmeye çalışabilirsiniz.bilgilerinize.
iyi çalışmalar,
saygılar.
Kod:
Set xmlDoc = CreateObject("Msxml.DOMDocument")
Dim DovizListesi As Object
Dim Dovizler As Object
xmlDoc.async = False
xmlDoc.Load "http://www.tcmb.gov.tr/kurlar/today.xml"
Set DovizListesi = xmlDoc.documentElement.selectNodes("Currency")
Dim kod As String
For Each Dovizler In DovizListesi
DovizCinsi = Dovizler.selectSingleNode("Isim").Text
OrjIsim = Dovizler.selectSingleNode("CurrencyName").Text
Alis = Dovizler.selectSingleNode("ForexBuying").Text
Satis = Dovizler.selectSingleNode("ForexSelling").Text
Me.dovizal = Mid(Dovizler.selectSingleNode("ForexBuying").Text, 1, 1) & "," & Mid(Dovizler.selectSingleNode("ForexBuying").Text, 3, 3)
Me.dovizsat = Mid(Dovizler.selectSingleNode("ForexSelling").Text, 1, 1) & "," & Mid(Dovizler.selectSingleNode("ForexSelling").Text, 3, 3)
If DovizCinsi = "EURO" Then
Exit For
End If
Next
Set xmlDoc = Nothing
Hocam Doviz cinsi yazan bölümü aşağıdaki listede bulunan listedeki para birimine göre düzenle yapıp dovizal ve dovizsat değişkene atayabilir veya metin kutusuna aktara bilirsiniz.Yardımcı olması dileğiyle iyi günler
Kod:
http://www.tcmb.gov.tr/kurlar/today.xml