コレクションには文字列が格納されません

Question

今朝から私はVBA（Excel 2003）で奇妙な動作を経験しています。ここで

コードです：今

Sub TestCollection() 

Dim i As Single, col As New Collection 
Dim vArr(1 To 3) As String 

'For i = LBound(vArr) To UBound(vArr) 
' vArr(i) = Sheets("Sheet2").Cells(1, i) 
'Next i 

vArr(1) = "String 1" 
vArr(2) = "String 2" 
vArr(3) = "String 3" 

For i = LBound(vArr) To UBound(vArr) 
    Debug.Print vArr(i) 
    col.Add i, vArr(i) 
    Debug.Print col(i) 
Next i 

End Sub 

、私は私のコレクションは、（例えばローカルウィンドウ内）のような項目/キーのペアで満たされることを期待したい：

Item 1 -> "String 1" 
Item 2 -> "String 2" 
Item 3 -> "String 3" 

残念ながら私

Item 1 -> 1 
Item 2 -> 2 
Item 3 -> 3 

誰もがコレクションに文字列を保存しない理由を誰かが知っていますかキー値として？

Answer 1

コードを正しく読んでいる場合は、たとえばString 1ではなく、iの値をキーにしたいと思うようです。もしそうなら、私はあなたがちょうど彼らのインデックスでアイテムを検索、これはあなたの実際のデータでは動作しないことがあり

vArr(1) = "String 1" 
vArr(2) = "String 2" 
vArr(3) = "String 3" 

For i = LBound(vArr) To UBound(vArr) 
    col.Add vArr(i) 
    Sheet1.Cells(1, i) = col.Item(i) 
Next i 

だろう簡単な方法与えられた例に基づいて

vArr(1) = "String 1" 
vArr(2) = "String 2" 
vArr(3) = "String 3" 

For i = LBound(vArr) To UBound(vArr) 
    col.Add vArr(i), CStr(i) 
    Sheet1.Cells(1, i) = col.Item(i) 
Next i 

をしようとお勧めします。

編集： 私はこのコードを使用して、列名に基づいて列番号を検索することができます

Dim i As Single, col As New Collection 
Dim vArr(1 To 3) As String 

vArr(1) = "Column 1" 
vArr(2) = "Column 2" 
vArr(3) = "Column 3" 

For i = LBound(vArr) To UBound(vArr) 
    col.Add i, vArr(i) 
Next i 

For i = LBound(vArr) To UBound(vArr) 
    Dim columnNumber As Integer 
    columnNumber = col("Column 2") 
    Sheet1.Cells(1, columnNumber).Value = "Found it" 
Next i 

Answer 2

簡単な説明：アイテム、キーというより：コレクションの Addメソッドは、順序でパラメータを望んでいます：キー、項目。 http://msdn.microsoft.com/en-us/library/f26wd2e5.aspx

Answer 3

これは私があなたの元のコードになるだろう唯一の編集です：：キーは文字列でなければなりません

col.Add vArr(i), CStr(vArr(i)) 

Answer 4

は項目がすることができますが、私はその情報を得たのはここ

ですint、string、またはおそらく任意のオブジェクトです。 あなたはキーが、ちょうどそれらを投げ、ジェリーボーケールの提案に似て、むしろ「項目1」などよりも簡単な整数、にしたい場合：

col.Add vArr(i), CStr(i)