Itérer sur les dictionnaires VBA?

J'utilise la classe Dictionary dans la bibliothèque de scripts ms Runtime pour stocker où les étiquettes vont aller pour un modèle de rapport. Existe-t-il un moyen d'itérer sur toutes les paires de valeurs clés dans ce dictionnaire comme en Python? Je veux juste utiliser la clé comme numéro de ligne (tout va dans la colonne A) et la valeur sera l'en-tête de l'étiquette.

Quelque Chose comme:

For Each key in dict
    Range("A" & key).Value = dict(key)
Next key
51
demandé sur mandroid 2009-08-19 00:14:31

1 réponses

Essayez:

For Each strKey In oDic.Keys()
    Range("A" & strKey).Value = oDic(strKey)
Next
92
répondu EBGreen 2009-08-18 20:18:09