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

[ארי]

ערב טוב.
אני משתמש בקוד VBA אקסס בפונקציה שממירה json למערך (JsonConverter), ומוציא ממנו נתונים עם קוד כזה: element("Name")
אני מנסה עכשיו לכתוב קוד שיציג לי את כל השמות של האלמנטים הקיימים, ניסיתי לעשות לולאה ולכתוב element(1) לדוג' אבל הוא מזהה רק שם של האלמנט ולא במספר.
האם יש אופציה למצוא את השמות שלהם?
תודה.

[משתמש תמים]

@ארי
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 הקפצה.
תודה.