Перебирать словари VBA?

49

Я использую класс Dictionary в библиотеке сценариев MS Runtime для хранения меток меток для шаблона отчета. Есть ли способ перебрать все пары ключевых значений в этом словаре, как в Python? Я просто хочу использовать ключ как номер строки (все это происходит в столбце A), и значение будет заголовком метки.

Что-то вроде:

For Each key in dict
    Range("A" & key).Value = dict(key)
Next key
Теги:
excel-vba
excel

1 ответ

92
Лучший ответ

Try:

For Each strKey In oDic.Keys()
    Range("A" & strKey).Value = oDic(strKey)
Next
  • 34
    Я бы добавил, что strKey должен быть объявлен As Variant , потому что For Each не работает с String s.
  • 0
    @stenci, отредактировано соответственно.

Ещё вопросы

Сообщество Overcoder
Наверх
Меню