Çözüldü Makro ile WEbden Json Tablosu çekme

burakgunes' Alıntı:

Kod:

Public Sub exceljson1()

Dim http As Object, JSON As Object, i As Integer
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "http://84.51.59.99/baybossWebAndroid/home/testJson", False
http.send
Set JSON = ParseJson(http.responseText)
i = 2
For Each Item In JSON
Sheets(1).Cells(i, 1).Value = Item("ID")
Sheets(1).Cells(i, 2).Value = Item("NAME")
Sheets(1).Cells(i, 3).Value = Item("BARCODE")
Sheets(1).Cells(i, 4).Value = Item("A_33_ADA")
Sheets(1).Cells(i, 5).Value = Item("A_2_ADA")
Sheets(1).Cells(i, 6).Value = Item("BASAKSEHIR")
Sheets(1).Cells(i, 7).Value = Item("ALTINSEHIR")
Sheets(1).Cells(i, 8).Value = Item("SATISFIYATI")
i = i + 1

Next
MsgBox ("TAMAMLANDI")

End Sub

Merhaba yukarıdaki kod Excell dosyama eklediğim JsonConverter.bas fonksiyonu vasıtası ile çalışıyor. Fakat Şöyle bir problem çıkıyor ortaya Kod sadece ilk çalıştığında güncel tabloyu çekiyor sonraki çalıştımalarda json tablosu güncellense bile İlk sayfayı açtığımdaki şekli ile bana geri yazıdırıyor. Sanırım Ön belleğe alıyor sonra her makroyu çalıştırdığımda tekrar bana veriyor. Bu sorunuma çözüm rica ediyorum teşekkürler Balta aeGNoR Örnek dosya ektedir

Genişletmek için tıkla...

aeGNoR' Alıntı:

Global bir değişken tanımlamıyorsunuz böyle bir şey olması imkansız. ParseJson fonksiyonunu görmemde bir sakınca var mı?

biraz inceledikten sonra gelen edit:

Sonuç string dönmüyor, dict ya da coll dönüyor.
dict ya da coll da global bir işlem mi yapıyor şuan hatırlayamadım. Çok sallamasyon olacak ama eklediğim ekran görüntüsündeki gibi bir şey denediniz mi? Önce listeyi boşaltıp sonra sorgulatmayı? Hatalı veri girildiğinde set nothing yapıyordur herhalde dict veya coll'u

Genişletmek için tıkla...

veyselemre' Alıntı:

Kod:

Set http =CreateObject("MSXML2.ServerXMLHTTP")

Bu şekilde bir deneyin.

Genişletmek için tıkla...