VBA ile Web (API) Verisi Çekme ve JSON İşleme
Modern işletmeler artık verilerini yalnızca yerel veritabanlarında değil, internet üzerindeki bulut servislerinde ve Web API'lerinde barındırır. Excel VBA kullanarak Merkez Bankası döviz kurlarını, kripto para fiyatlarını veya şirketinizin e-ticaret API verilerini anlık olarak Excel sayfanıza indirebilirsiniz.
Bu işlem için MSXML2.XMLHTTP nesnesi kullanılarak internet üzerindeki bir URL'ye HTTP GET isteği gönderilir. Servisten dönen JSON formatındaki ham metin yanıtı VBA içinde işlenerek ilgili hücrelere yazdırılır.
XMLHTTP Nesnesi ile Web İstekleri
Aşağıdaki standart kod yapısı ile herhangi bir web servisinden veri çekilebilir.
Web API Veri Çekme Kod Kalıbı
Dim http As Object
Set http = CreateObject("MSXML2.XMLHTTP")
' API adresine istek gönder
http.Open "GET", "https://api.ornekservis.com/kurlar", False
http.Send
' Gelen JSON yanıtını ekrana yaz
Range("A2").Value = http.ResponseText