Değerli üstadlar merhaba,
Forumda bir çok konu inceledim bir çok örnek var ancak kendime uyarlayamadım,
TCMB kurlarını form kullanmadan sadece accsess tablosuna alabilir miyiz ? Ve en önemlisi bu işlemi excelde Userform üzerine tarih için 1 adet Textbox ekleyip sorgulama yapmak için bir buton yardımıyla yaptırabilir miyiz ?
Cevaplarınız için şimdiden teşekkür ederim.
Tekrar Merhaba,
Sorum için örnek dosya ekledim,
userforma TxtTrh adlı metin kutusu ekleyip butona aşağıdaki kodu ekleyerek dener misiniz?
SorguTarihi = Me.TxtTrh
Set xmldoc = CreateObject("Msxml.DOMDocument")
Dim DovizListesi, Dovizler As Object
xmldoc.async = False
If SorguTarihi <> Date Then
xmldoc.Load "http://www.tcmb.gov.tr/kurlar/" & CStr(Format(SorguTarihi, "yyyymm") & "/" & Format(SorguTarihi, "ddmmyyyy")) & ".xml"
Else
xmldoc.Load "http://www.tcmb.gov.tr/kurlar/today.xml"
End If
Set DovizListesi = xmldoc.DocumentElement.SelectNodes("Currency")
On Error Resume Next
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\Döviz.accdb"
For Each Dovizler In DovizListesi
SqlEkle = " INSERT INTO [Döviz] (DövizAdi, [DövizAlis], [DövizSatis],[EfektifAlis],[EfektifSatis]) " & _
" VALUES ('" & Dovizler.SelectSingleNode("Isim").Text & "',CCur('" & _
Replace(Dovizler.SelectSingleNode("ForexBuying").Text, ".", ",") & "'), CCur('" & _
Replace(Dovizler.SelectSingleNode("ForexSelling").Text, ".", ",") & "'),CCur('" & _
Replace(Dovizler.SelectSingleNode("BanknoteBuying").Text, ".", ",") & "'),CCur('" & _
Replace(Dovizler.SelectSingleNode("BanknoteSelling").Text, ".", ",") & "'))"
'Debug.Print SqlEkle
baglan.Execute SqlEkle
If Dovizler.SelectSingleNode("Isim").Text = "PAKİSTAN RUPİSİ" Then
Exit For
End If
Next
Set xmldoc = Nothing
Berduş hocam selam,
Denemedim henüz ama, her soruma cevap verdiginiz icin, desteginiz emeginiz icinn ne kadar dua etsem azdir, sonucu ayrica buradan paylasacagim.
Döviz cinsi ile döviz adı arasındaki fark ne?
tablonuzda tarih alanı yok. tarih alanı olması da gerekmez mi?
Hocam tarih alani lazim atlamisim, doviz cinsi "usd" doviz adi "abd dolari" gibi birsey düşünmüştüm ama, usd,eur,gbp gibi kisa isimleri de yeterli.