2009-08-18 149 views
47

我正在使用MS Runtime腳本庫中的Dictionary類來存儲標籤將要用於報告模板的位置。有沒有辦法像在Python中那樣迭代該字典中的所有鍵值對?我只是想用這個鍵作爲行號(這一切都在列A中),並且該值將是標籤標題。迭代VBA字典?

喜歡的東西:

For Each key in dict 
    Range("A" & key).Value = dict(key) 
Next key 

回答

83

嘗試:

For Each strKey In oDic.Keys() 
    Range("A" & strKey).Value = oDic(strKey) 
Next 
+23

我想補充一點strKey應該被宣佈'作爲Variant',因爲'對於Each'不工作'String's 。 – stenci 2013-09-09 16:03:20