Merkez Bankasından Döviz Kuru Alma

Merkez Bankasından Döviz Kuru Alma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Merkez Bankasından Döviz Kuru Alma (/konu-merkez-bankasindan-doviz-kuru-alma.html)

Sayfalar: 1 2

Merkez Bankasından Döviz Kuru Alma - Conqueror20 - 23/10/2014

İ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?

Cvp: Merkez Bankasından Döviz Kuru Alma - simendifer - 24/10/2014

bu program işinizi görermi

Cvp: Merkez Bankasından Döviz Kuru Alma - Conqueror20 - 29/10/2014

(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

Cvp: Merkez Bankasından Döviz Kuru Alma - serkandiker - 29/11/2014

(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

Cvp: Merkez Bankasından Döviz Kuru Alma - atoz112 - 29/11/2014

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.

Cvp: Merkez Bankasından Döviz Kuru Alma - serkandiker - 05/12/2014

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