Collection.Add : 잘못된 인수 또는 잘못된 속성 할당

Question

Collection을 만들고 그 안에 Collection을 추가하는 하위가 있습니다.

Sub testState() 
    Dim stateCopy As State 
    Set stateCopy = New State 
    stateCopy.setStateName="some name" 
    stateCopy.storeBudgetWorkbooks 
    stateCopy.storeBudgetDatas 'error on this line 
End Sub 

Sub storeBudgetDatas() 'inside a class named State 
... 
    Dim year As Integer 
    Dim i As Integer 
    i = 1 
    For year = 2014 To 2017 
     Set budgetWorkbook = 
      ExcelApp.Application.Workbooks.Open(budgetWorkbooks(i)) 
     MsgBox ("still here") 'this message appears 

     allBudgetItems.Add getBudgetData(budgetWorkbook, year) 'this line is likely to cause problems 


     MsgBox ("and here") 'this message doesn't appear 
     budgetWorkbook.Close 
     i = i + 1 
    Next 
End Sub 

Function getBudgetData(budgetWorkbook As Workbook, year As Integer) 
    ... 
    Dim budgetItems As Collection 
    Set budgetItems = getBudgetItems(year) 
    ... 'setting attributes 
    getBudgetData = budgetItems(year) 
End Function 

Function getBudgetItems(year As Integer) 
    ... 
    Dim resultCollection As Collection 
    Set resultCollection = New Collection 
    Dim itemCopy As Item 
    Dim i As Integer 
    For i = LBound(budgetItemNames) To UBound(budgetItemNames) 
     Set itemCopy = New Item 
     ... 'setting attributes 
     resultCollection.Add itemCopy 
    Next 

    Set getBudgetItems = resultCollection 
End Function 

내가 여기 잘못 모르겠어요 : 루프에서 첫 컬렉션을 추가 할 때 나는 Wrong number of arguments or invalid property assignment 오류가 발생합니다. getBudgetItems은 콜렉션을 리턴합니다. getBudgetData도 컬렉션을 반환합니다. 나는 괄호를 추가/제거하려했지만 아무 소용이 없었다.

Answer 1

알아 냈어. getBudgetData = budgetItems(year) 대신 Set getBudgetData = budgetItems(year)이 있어야합니다. 당신이 우리에게 코드의 모든 관련 부분을 표시하지 않았으므로

Answer 2

, 내가 할 수있는 최선은 당신이 놓치고 생각하는 Set :

Function getBudgetData(budgetWorkbook As Workbook, year As Integer) 
    ... 
    Dim budgetItems As Collection 
    Set budgetItems = getBudgetItems(year) 
    ... 'setting attributes 
    Set getBudgetData = budgetItems(year) ' Need Set here 
End Function