В настоящее время я пытаюсь добавить коллекцию, которую я сделал, в массив коллекций. Он продолжает выдавать ошибки, когда я добавляю свою коллекцию в массив коллекций, которые я сделал. Коллекция добавляется в массив во второй цикл for внизу. Возможно, я объявил это неправильно или просто невозможно создать массив коллекций. Я не получил никаких ошибок при объявлении так, idk. Есть идеи?
Обновление: ошибка, которую он мне дает, это переменная объекта или переменная блока не установлена. Я пытаюсь добавить коллекцию в массив коллекций
Обновление 2: изменен код на основе предложений. В настоящее время пытаюсь выяснить, как получить доступ к Collection, хранящейся в массиве Collection
Private Sub CommandButton2_Click()
Dim currentWorksheet As Worksheet
WS_Count = ActiveWorkbook.Worksheets.Count
Dim rows As Integer
rows = WS_Count - 3
Dim itemsFoundList() As String
Dim itemsSold() As Integer
Dim numItems As String
Dim counter As Integer
Dim d As Integer
Dim masterArray() As Collection
ReDim masterArray(0 To WS_Count)
Dim itemList As Collection
counter = 1
d = 1
For i = 3 To WS_Count - 1
Set currentWorksheet = ActiveWorkbook.Worksheets(i)
Set itemList = New Collection
numItems = numberOfItems(currentWorksheet, "Drink", "I2", "I18")
' MsgBox " " & numItems
ReDim itemsFoundList(0 To CInt(numItems))
ReDim itemsSold(0 To CInt(numItems))
itemsFoundList = itemsFound(currentWorksheet, "Drink", "I2", "I18", CInt(numItems), "A")
itemsSold = itemsSoldFound(currentWorksheet, "Drink", "I2", "I18", CInt(numItems), "E")
itemList.Add itemsFoundList
itemList.Add itemsSold
itemList.Add currentWorksheet.Name
Set masterArray(counter) = itemList
'How to access Collection stored in Array of Collections?'
counter = counter + 1
Next i
End Sub