Yapı ve Kredi Bankasından Excele Döviz Bilgileri Alma

Bu dosya, Yapı Kredi Bankasının internet sitesindeki döviz bilgileri sayfasını okuyarak kurları Excel sayfasına aktaran bir makro örneğidir. Web'ten veri çekmeyi ve sayfa kaynak kodundan döngü ile bilgi ayıklamayı göstermesi açısından örnek çalışmadır.

Dosyanın içeriği​

• Sheet1: A1:L32 aralığında kur tablosu bulunur. Sütun başlıkları KOD, ALIŞ (₺) ve DEĞİŞİM şeklindedir.
• Tabloda USD, EUR, XAU, GBP, RUB, AUD, DKK, SEK, CHF, JPY, CAD, KWD, NOK, SAR ve ZAR kodlu kurlar listelenir. Değişim sütununda günlük değişim oranı (ör. "% 0,24") yer alır.
• Dosyada hücre formülü bulunmaz; değerler makro tarafından yazılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Module1 içinde tek bir prosedür vardır: YKB.

• Önce A2:F sütunlarındaki eski veriler temizlenir.
• MSXML2.XMLHTTP.6.0 nesnesi ile Yapı Kredi'nin döviz bilgileri sayfasına GET isteği gönderilir ve sayfanın HTML kodu alınır. Makro bu nedenle internet bağlantısı gerektirir.
• VBScript.Regexp ile dört ayrı desen çalıştırılır: döviz kodu, ad bilgisi, alış değeri ve günlük değişim. Sonuçlar döngüyle satır satır sayfaya yazılır.
• Ondalık ayırıcı virgül, nokta ile değiştirilerek değer sayısal olarak yazılır.
• Değişim yönü yukarı ise yeşil renkli yukarı ok, aşağı ise kırmızı renkli aşağı ok eklenir.
• Kodda dosya silme veya veri gönderme işlemi yoktur; yalnızca yukarıdaki sayfaya okuma isteği yapılır ve yalnızca bu dosyanın hücreleri değiştirilir.

Banka sitesinin HTML yapısı değişirse desenlerin güncellenmesi gerekebilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. İnternet bağlantınızın açık olduğundan emin olun.
3. Alt+F8 ile makro listesini açıp YKB makrosunu seçin ve çalıştırın.
4. Güncel kurlar Sheet1 sayfasında listelenir; makro her çalıştığında tablo yeniden yazılır.