Массив коллекций в макросе Vba for Excel - PullRequest
0 голосов
/ 13 июня 2019

В настоящее время я пытаюсь добавить коллекцию, которую я сделал, в массив коллекций. Он продолжает выдавать ошибки, когда я добавляю свою коллекцию в массив коллекций, которые я сделал. Коллекция добавляется в массив во второй цикл 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...