שמות אובייקטים ממערך

[משתמש תמים]

@ארי
element(1).Keys()(0) עובד לך?
(מודה ומתוודה זה מגוגל מכאן אם זה לא עובד אני אמחק)

[dovid]

@ארי שים פה את הקוד שניסית.

[ארי]

@dovid משהו כזה:

Set Json = JsonConverter.ParseJson(Response)

For Each element In Json
        
    Debug.Print element(i)
    i = i + 1
    
Next element

הוא לא מחזיר שגיאה, אבל פשוט מתעלם.
תודה.

[dovid]

@ארי אמר בשמות אובייקטים ממערך:

JsonConverter.ParseJson

תנסה ככה:

Set Json = JsonConverter.ParseJson(Response)
 
For Each key In Json.Keys()
    Debug.Print Json(key)
    i = i + 1
Next element

[ארי]

@dovid לא עובד.
הוא נתקע בשורה הראשונה

For Each Key In Json.Keys()

[dovid]

@ארי אם הוא נתקע תנסה לדחוף מאחורה...

[ארי]

@dovid
הוא מחזיר שגיאה:

תודה!

[dovid]

@ארי זה כבר יותר טוב מ"לא עובד".
איך אתה מצהיר על Json? איזה סוג?
כלומר יש שורה בה כתוב Dim Json As XYZ?

[ארי]

@dovid

Dim Json        As Object
Dim Key         As Object

[ארי]

@dovid הקפצה.
תודה.