Döviz Kuru Bilgisini Almak

[alfodizyak]

Arkadaşlar 2 gündür arıyorum ama ihtiyacıma göre bir cevap bulamadım, en sonunda yardım istemeye karar verdim.
Benim bir tablom var ve bazı Türk Lirası tutarlar yazılı. Ben bu rakamların hemen yanındaki satırlarada bilgi edinebilmek amacıyla dolar ve euro karşılıklarınıda yazmak istiyorum. Elbette bunu yapmak kolay ama bir türlü Merkez Bankası'ndan döviz kurlarını çekmeyi başaramadım. Bulduğum kodların yarısı hiç çalışmadı, yarısını da kendi tabloma adapte edemedim. Dış veri al ile de denedim ancak excel bir türlü bağlanamıyor, donup kalıyor.
Ben sadece "http://www.tcmb.gov.tr/kurlar/today.html" sayfasındaki dolar ve euro alış-satış kurlarını birer hücreye çekmek istiyorum. Kodlar kendi kendine çalışacak yani butona gerek yok. Ayrıca belirli periyotlarla kurların güncellenmesine de ihtiyacım yok, dediğim gibi yaklaşık sonuçlar benim için yeterli.
Gözünüzde daha rahat canlanması için ekte birde görsel gönderiyorum. Eğer yardımcı olursanız çok sevinirim. İşle ilgili bilirisiniz biraz acil bir durum. Şimdiden teşekkür ederim.

Ve bir soru daha; bunu kod yazmadan, makro atamadan yapma şansımız var mı?

 

[alfodizyak]

Döviz Kuru Bilgisi Alma

Arkadaşlar 2 gündür arıyorum ama ihtiyacıma göre bir cevap bulamadım, en sonunda yardım istemeye karar verdim.
Benim bir tablom var ve bazı Türk Lirası tutarlar yazılı. Ben bu rakamların hemen yanındaki satırlarada bilgi edinebilmek amacıyla dolar ve euro karşılıklarınıda yazmak istiyorum. Elbette bunu yapmak kolay ama bir türlü Merkez Bankası'ndan döviz kurlarını çekmeyi başaramadım. Bulduğum kodların yarısı hiç çalışmadı, yarısını da kendi tabloma adapte edemedim. Dış veri al ile de denedim ancak excel bir türlü bağlanamıyor, donup kalıyor.
Ben sadece "http://www.tcmb.gov.tr/kurlar/today.html" sayfasındaki dolar ve euro alış-satış kurlarını birer hücreye çekmek istiyorum. Kodlar kendi kendine çalışacak yani butona gerek yok. Ayrıca belirli periyotlarla kurların güncellenmesine de ihtiyacım yok, dediğim gibi yaklaşık sonuçlar benim için yeterli.
Gözünüzde daha rahat canlanması için ekte birde görsel gönderiyorum. Eğer yardımcı olursanız çok sevinirim. İşle ilgili bilirisiniz biraz acil bir durum. Şimdiden teşekkür ederim.

Ve bir soru daha; bunu kod yazmadan, makro atamadan yapma şansımız var mı?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linkte konu işlenmişti. İncelermisiniz.

İki tarih arası T.C.M.B. bankası döviz bilgileri sorgulama

 

[alfodizyak]

Bu yazıyı incelemiştim ama tarih aralığı benim tablom için gereksiz. Ben aşağıdaki kodlarla USD alışı için verileri çekmeyi başardım. Teşekkür ederim..

Private Sub Workbook_Open()
On Local Error Resume Next
Dim ie As Object, ara As String
Set ie = CreateObject("internetexplorer.application")
With Sheets("sayfa1")
.Range("a1").Value = 0
With ie
.navigate "http://www.tcmb.gov.tr/kurlar/today.html"
Do While .busy: Loop
ara = Mid(.document.all.Item(0).innertext, 1, 1100)
kur_usd = Replace(LTrim(RTrim(Mid(ara, InStrRev(ara, "ABD DOLARI", -1) + 22, 15))), ".", ",") * 1
End With
.Range("a1").Value = CDbl(kur_usd)
End With
10 Set ie = Nothing
ara = vbNullString
kur_usd = Empty
End Sub

 

[ardaserim]

peki arşiv olarak alabileceğimiz bir kod nasıl yazılır.
yani bir listenin altına sürekli günlük kodu atıcak
bunu yapma şansımız varmı?

 

[Korhan Ayhan]

Selamlar,

#3 nolu mesajdaki dosyayı incelediniz mi? Zaten tarih aralığı vererek aktardığınız için arşiv niteliğini taşımaktadır.

 

[ardaserim]

teşekkürler

 

[bluefalcon]

Döviz Kuru Bilgisi Almak

Selamlar Herkese,
TCMB internet sitesindeki link değişince herhangi bir bilgi alınmaz olmuş durumda. Yukarıda arkadaşımızın verdiği kodu nasıl uyarlayabiliriz?