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

[burakgunes]

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

 

[aeGNoR]

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

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

 

[burakgunes]

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

Maalesef Çalışmadı

GET request data doesn't update Şöyle bir konu buldum ama kendi koduma uyarlayamaıdm çözüm sağlanmışmı oda belli değil ama

 

[veyselemre]

Set http =CreateObject("MSXML2.ServerXMLHTTP")

Bu şekilde bir deneyin.

 

[burakgunes]

Set http =CreateObject("MSXML2.ServerXMLHTTP")

Bu şekilde bir deneyin.

Sorunum Çözüldü Çok Teşekkür Ederim

 

[veyselemre]

PQ örnek olarak kalsın.

let
    Source = Json.Document(Web.Contents("http://84.51.59.99/baybossWebAndroid/home/testJson")),
    #"Converted to Table" = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    #"Expanded Column1" = Table.ExpandRecordColumn(#"Converted to Table", "Column1", {"ID", "NAME", "BARCODE", "ETAKOD",
               "ENTEGRA", "A_33_ADA", "A_2_ADA", "BASAKSEHIR", "ALTINSEHIR", "TOPLAMSTOK", "ALISFIYATI", "SATISFIYATI",
               "MARKA", "KATEGORI"}, {"ID", "NAME", "BARCODE", "ETAKOD", "ENTEGRA", "A_33_ADA", "A_2_ADA", "BASAKSEHIR",
                "ALTINSEHIR", "TOPLAMSTOK", "ALISFIYATI", "SATISFIYATI", "MARKA", "KATEGORI"})
in
    #"Expanded Column1"