Web sayfasından veri alma

[Levent Menteşoğlu]

Özellikle www.tcmb.gov.tr adresinden döviz kurlarını bir excel sayfasında günlük olarak güncellemek istiyorum. bunu excelin "dış veri al" özelliklerinden bir web sorgusu ile yapmayı denedim netice alamadım. sanırım web sitesi bu bağlantıyı desteklemiyor. Bu veri güncellemesini aynı siteden yapma ile ilgili yardımlarınızı rica ediyorum. Eğer yukarıdaki siteden olmuyorsa başka bir site adresine göre yapılan bağlantıda yeterli olacaktır.

önerileriniz için şimdiden teşekkür ederim.

 

[ALPEN]

inceleyin

 

[Levent Menteşoğlu]

Sn ALPEN

Teşekkür ederim. Çok yararlı oldu.

 

[dyrbkr]

teşekkür ederim

 

[oziyilmaz]

SN ALPEN DOSYAYI İNCELEDİM AMA DIÞ VERİ OLUÞTURMA OLAYININ NASIL YAPILDIÐINI ANLAYAMADIM(SALAK MIYIM NEYİM). HANİ ADIMLASAN DİYORUM. BANA GEREKLİ OLACAK. ÞU AÇIDAN HER AYIN ORTALAMA DÃ?VİZ KURLARI GEREKİYOR. BENDE DÃ?VİZ KURLARI SAYFASINI HER GÜNE 1 SAYFA ÞEKLİNDE TANIMLAYIP SON SAYFADA DA ORTALAMA KURLARI BULMASI İÇİN BİRKAÇ FORMÜL GİRDİÐİM ZAMAN, ZAMANDAN OLDUKÇA TASARRUF EDECEÐİM. :icelim:

 

[ALPEN]

merhaba
aşağıdaki dosya belirttiğiniz ayın tüm günlük kurlarını www.tcmb.gov.tr den ayrı ayrı alır.

 

[oziyilmaz]

sn alpen

dosyayı açıyorum ay ve yıl seçimi yapıyorum. ama nedense "textbox1" e derleme hatası veriyor. makrolar hakkında çok kısıtlı bilgiye sahibim (şimdilik) ve sonuç olarak çalıştıramadım. :kafa:

 

[ALPEN]

pardon denemeden göndermişim.
hata veren satırı silin.

 

[oziyilmaz]

SİLDİM AMA NAFİLE BU SEFER BAÞKA SATIRLARA HATA VERİYOR. ACABA OFFICE 97 KULLANMAM BUNA SEBEP OLUR MU.

 

[ALPEN]

merhaba
büyük ihtimal 97 olmasından. çünkü bende çalışıyor.

hata veren tüm satırları silin :mrgreen: çalışır.

 

[Yascene]

çok işime yaradı arkadaşlar çok sao ALPEN :hey:

 

[cako]

Kocaman bir teşekkür de benden. :hihoho: :bravo:

 

[ALPEN]

sn alpen

dosyayı açıyorum ay ve yıl seçimi yapıyorum. ama nedense "textbox1" e derleme hatası veriyor. makrolar hakkında çok kısıtlı bilgiye sahibim (şimdilik) ve sonuç olarak çalıştıramadım.

VBE penceresinde Tools-> references menüsüne girin,

Burada içinde "MISSING" kelimesi geçen satırın yanındaki işareti kaldırın.

 

[esolen]

çok istediğim bir dosya fakat açtığımda
boş ekran çıkıyor aktif kullana bilmem için yardımcı olurmusunuz

 

[mraltin]

Sn.Alpen cok Guzel olmus ama ben bunu pek anlamadim.ben userform uzerine bunlari bir butona basınca ilgili label yada textboxlara euro ve dolar olarak bilgi alabilirmiyim.
tesekkurler

 

[mraltin]

ozur dilerim sn.alpen biraz arastirinca buldum cok tesekkurler
birde userform uzerindeki textboxlara girecegim bilgiler dogrultusunda bagkur provizyon sorgulaması yapılabilir mi?

 

[xxrt]

mraltin,
http://www.excel.web.tr/viewtopic.php?t=2236&start=0
Bu proğramı eklenti olarak çalışmalarınıza eklerseniz istediğinize ulaşırsınız.

 

[ALPEN]

birde userform uzerindeki textboxlara girecegim bilgiler dogrultusunda bagkur provizyon sorgulaması yapılabilir mi?

Sorgulamanın yapıldığı linki alabilir miyim?

 

[mraltin]

http://www.bagkur.gov.tr/sigortali/provizyon.shtml

 

[whyislam]

Evet bende dosyayı açtığımda Textbox'ta hata vermişti aşağıdaki siteden gerekli ocx dosyasını download yaptım sonra açtığımda gayet güzel çalıştı, ve birde kodlarda şu değişikliği yaptım.

Sheets("dolar").Cells(satir, 2) = Sheets("sheet1").Cells(7, 3)
Sheets("dolar").Cells(satir, 3) = Sheets("sheet1").Cells(7, 4)
Sheets("dolar").Cells(satir, 4) = Sheets("sheet1").Cells(7, 5)
Sheets("dolar").Cells(satir, 5) = Sheets("sheet1").Cells(7, 6)
satir = Sheets("euro").Cells(65536, 1).End(xlUp).Row + 1
Sheets("euro").Cells(satir, 1) = i
Sheets("euro").Cells(satir, 2) = Sheets("sheet1").Cells(10, 3)
Sheets("euro").Cells(satir, 3) = Sheets("sheet1").Cells(10, 4)
Sheets("euro").Cells(satir, 4) = Sheets("sheet1").Cells(10, 5)
Sheets("euro").Cells(satir, 5) = Sheets("sheet1").Cells(10, 6)

OCX Download : http://freeware.it-mate.co.uk/downloads/controls/mschrt20.zip

Ellerine Sağlık