burakgunes
Yeni Üye
- Katılım
- 12 Ağu 2021
- Mesajlar
- 65
- Çözümler
- 1
- Aldığı beğeni
- 23
- Excel V
- Office 365 TR
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