הפרנציפ של המרת json לקחתי מהקובץ הזה.
כיון שהJSON שמתקבל הוא שונה ממה שהאקסל הזה מקבל, הוספתי לזה המרה קטנה שיהיה יותר נח לעבוד איתו. (בכל מקרה הוא מקבל רק מערכים ברמה א' וזה לא מושלם). בהצלחה.
נ.ב. לענ"ד לא יעזור לך העלאת קבצים לדרובוקס, בשביל ימות המשיח.
Public Function HAMARA(JSON_TEXT_IN As String) As String
Dim TXTMP As String
TXTMP = Replace(JSON_TEXT_IN, ": ", ":[")
TXTMP = Replace(TXTMP, ": 0", ", 0")
TXTMP = Replace(TXTMP, ": 1", ", 1")
TXTMP = Replace(TXTMP, ": 2", ", 2")
TXTMP = Replace(TXTMP, ": 3", ", 3")
TXTMP = Replace(TXTMP, ": 4", ", 4")
TXTMP = Replace(TXTMP, ": 5", ", 5")
TXTMP = Replace(TXTMP, ": 6", ", 6")
TXTMP = Replace(TXTMP, ": 7", ", 7")
TXTMP = Replace(TXTMP, ": 8", ", 8")
TXTMP = Replace(TXTMP, ": 9", ", 9")
TXTMP = Replace(TXTMP, ",", "],")
TXTMP = Replace(TXTMP, "}", "]},")
HAMARA = TXTMP
End Function
JsonBag 2.4.zip
פורסם במקור בפורום CODE613 ב18/03/2017 21:05 (+02:00)