makro ile altın fiyatlarını alabilir miyiz?

[bjk55]

Bülten Verileri

Borsaistanbul, BIST

www.borsaistanbul.com

burada ki fiyatları excele nasıl geçirebiliriz

 

[EmrExcel16]

@Haluk hocam acaba benim pc de sıkıntı olabilir mi ?

Dosyaları açıp verileri aldığımda güncel veriler geliyor , daha sonrasında dosyayı kapatıp tekrar açmaz isem aynı verileri tekrarlıyor güncellemiyor.

09:53 ' de dosyayı açtım güncelledim , daha sonrasında 10:16 ' ya kadar kaç defa çalıştırdıysam hep aynı veriler geldi.

Dosyayı kapatıp tekrar açar isem sıkıntı olmuyor.

 

[Haluk]

Haluk Hocam,
Siz konuya dahil olmuşken müsaadenizle konu hakkında bir şey sormak istiyorum.
Yukarıdaki kodları yazmadan önce aşağıdaki kodlarla veri almayı denedim, ancak 08.06.2017 tarihine ait veriler geldi. Bu site ile alakalı bir durum mu, yoksa ben bir yerde hata mı yapıyorum? Bir de siteden kaynaklı bir durumsa bu yöntemde bunu aşma imkanı var mıdır?

Ömer Bey; daha önce belirttiğiniz konuya şimdi bakabildim....

Söz konusu 08.06.2017 tarihine ait veriler, yani; sayfanın kaynak kodlarındaki "altinTablo" ID'li tablo sayfaya "Default" olarak yerleştirilmiş, daha sonra bu Tablo bir "Script" ile "Append" modunda açılarak yukarıda 12 No'lu mesajda verdiğim "JSon" tablosundan alınan verilerle değiştirilmiş.

Böylelikle, sunucuya HTTP isteği gönderdiğinizde söz konusu Script'i siz çalıştırmadığınız için, "altinTablo" ID'li tablodaki "Default" olarak hazırlanmış olan 08.06.2017 tarihine ait verileri çekiyorsunuz.

Bunları sayfanın HTML kodlarında görebiliyorsunuz...

.

 

[Haluk]

Bülten Verileri

Borsaistanbul, BIST

www.borsaistanbul.com

burada ki fiyatları excele nasıl geçirebiliriz

İgili linkler:

BIST 100 anlık verileri

Merhaba; Borsa ile ilgilenenler için BIST 100 değerlerini anlık olarak Excel dosyasına işleyen, aşağıdaki animasyonda görüldüğü gibi bir dosya hazırladım. İşlem gören hisselerin en son, en yüksek, en düşük değerleri ile hisselerin artış/azalış oranları renkli olarak işlenmektedir. Dosya için...

www.excel.web.tr

Borsa İstanbul (BIST-100) verileri

Borsa İstanbul verilerinin alınmasına ilişkin bir çalışma ektedir... .

www.excel.web.tr

.

 

[Haluk]

@Haluk hocam acaba benim pc de sıkıntı olabilir mi ?

Dosyaları açıp verileri aldığımda güncel veriler geliyor , daha sonrasında dosyayı kapatıp tekrar açmaz isem aynı verileri tekrarlıyor güncellemiyor.

Tam olarak deneyemedim ama, bu durum bende de öyle galiba.... Muhtemelen site altyapısıyla ilgili bir durum.

Verileri alırken bizim cache'i boşaltmamız gerekiyor sanırım....

.

 

[EmrExcel16]

Anladım hocam , bilgilendirme için teşekkür ederim.

 

[Haluk]

Tahmin ettiğimden de fazla zorladı "CepteTEB" beni ama, hallettim sanırım ...

Sunucuya isteği gönderirken bazı Header'lar göndermek gerekiyor..!

Verilerin güncellenerek alındığı revize dosya ektedir....

.

 

[EmrExcel16]

"\zoru-basaririz-imkansiz-biraz-zaman-alir\"

Paylaşım için teşekkür ederim , ellerinize sağlık Haluk hocam.

 

[Haluk]

Eyvallah, kolay gelsin ...

.

 

[bafralifatih55]

merhaba
değerli üstatlar hepinize ayrı ayrı teşekkür ederim.
ancak verileri geçerli sayfaya değilde belirli bir sayfaya alabilsek daha iyi olur. mevcut hali ile yaptığım işlemlerin üzerine yazıyor.
teşekkürler.

 

[ahmetmis]

Ekli alternatif dosyada, "Split" yöntemi kullanılmıştır...

.

haluk bey yazdığınız formülde A ile D hücrelerine yazdırıyor. ben bunu değiştirmek istedim ama hata verdi. H ile K hücrelerine yazdırmak istiyorum

 

[Haluk]

Cells(i, 1)

yerine,

Cells(i, 8)

yazın, diğerlerini de 9, 10, 11 diye değiştirin....

.

 

[Coupler]

Merhaba,

bu linkten dolar,euro,altın (gr) ve gümüş (gr) al/sat verilerini almaya çalışıyorum,yardımcı olabilirmisiniz ?

Senin Bankan | Şubesiz Bankacılık | Ana Sayfa | Kuveyt Türk Katılım Bankası

Türkiye’nin ilk faizsiz dijital bankacılık platformu olarak hayata geçen Senin Bankan, tüm uzaktan hesap açılışı hizmetlerini Kuveyt Türk Mobil'e devretti.

www.seninbankan.com.tr

 

[bjk55]

İgili linkler:

BIST 100 anlık verileri

Merhaba; Borsa ile ilgilenenler için BIST 100 değerlerini anlık olarak Excel dosyasına işleyen, aşağıdaki animasyonda görüldüğü gibi bir dosya hazırladım. İşlem gören hisselerin en son, en yüksek, en düşük değerleri ile hisselerin artış/azalış oranları renkli olarak işlenmektedir. Dosya için...

www.excel.web.tr

Borsa İstanbul (BIST-100) verileri

Borsa İstanbul verilerinin alınmasına ilişkin bir çalışma ektedir... .

www.excel.web.tr

.

Merhaba Haluk Bey, ben sadece Altın fiyatını istiyorum

 

[Haluk]

Merhaba Haluk Bey, ben sadece Altın fiyatını istiyorum

 

[bjk55]

Çok Teşekkür ederim, istediğim Tarihe göre nasıl güncelleme yapabilirim

 

[Haluk]

Dosya sadece en güncel verileri alır.....

.

 

[sguraksin]

teşekkürler

 

[volkuslu]

Bunun için aşağıdaki fonksiyonu kullanabilirsiniz.
Bu fonksiyonu boş bir modüle kopyaladıktan sonra =Altin_Fiyat(1) şeklinde hücrede formül olarak, ya da Altin_Fiyat(1) şeklinde makro kodu içerisinde kullanabilirsiniz.
Kullanabileceğiniz parametreler function içerisinde belirtilmiştir.
Satış fiyatını almak için kodda yer alan Cells(1) ifadesini Cells(2) olarak değiştiriniz.

Function Altin_Fiyat(tur As Byte)
'***tur değerleri***
'1 - Gram Altın
'2 - Çeyrek Altın
'3 - Yarım Altın
'4 - Tam Altın

Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "https://www.cepteteb.com.tr/altin-kurlari"
Do While Not IE.readyState = 4: DoEvents: Loop
Do While IE.busy: DoEvents:  Loop

Set fiyat = IE.Document.getElementById("altinTablo")

Altin_Fiyat = fiyat.Rows(tur).Cells(1).innerText
Altin_Fiyat = CDbl(Replace(Altin_Fiyat, " TL", ""))
IE.Quit
End Function

bu fonksiyonu gümüş - euro - dolar için uyarlamak mümkün müdür?
teşekkür ederim.

 

[ÖmerBey]

bu fonksiyonu gümüş - euro - dolar için uyarlamak mümkün müdür?

Kodun, aynı sitenin döviz verileri için uyarlanmış hali...

Function Doviz_Fiyat(tur As Byte, islem As Byte)
'***tur değerleri***
'1 - USD
'2 - EUR
'3 - GPB

'***islem değerleri***
'1 - Alış
'2 - Satış

Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "https://www.cepteteb.com.tr/doviz-kurlari"
Do While Not IE.readyState = 4: DoEvents: Loop
Do While IE.busy: DoEvents:  Loop

Set fiyat = IE.Document.getElementById("dovizTablo")

Doviz_Fiyat = fiyat.Rows(tur).Cells(islem).innertext
Doviz_Fiyat = CDbl(Replace(Doviz_Fiyat, " TL", ""))
IE.Quit
End Function