전달 변형 배열은 생산 "형식 불일치"오류

Question

나는 다음과 같은 두 가지 방법이 있습니다

Sub Start() 
    Dim x As Dictionary 
    Set x = New Dictionary 
    Call x.Add("first", 1) 
    MsgBox TypeName(x.Items) 'Displays "Variant()" 
    Call Test(x.Items) 
End Sub 

Sub Test(withArray() As Variant) 

End Sub 

내 프로젝트는 위에서 사용 된 Dictionary 클래스를 제공하기 위해 "마이크로 소프트 런타임 스크립팅"을 참조한다.

유형 불일치 : x.Items이 MsgBox TypeName(x.Items)에 의해 입증으로 Variant()이 (내가 Call Test(x.Items)에 다음과 같은 컴파일 오류가있어 반환하는 사실에도 불구하고 배열 또는 사용자 정의 형식

예상 무엇이 잘못 ?

참고 :

Sub Test(withArray) 
    MsgBox TypeName(withArray) 
End Sub 

: 나는에 Test 방법을 변경하는 경우

성공하고 Variant()을 표시합니다. 인수를 Variant() 유형으로 명시 적으로 선언 할 수없는 이유는 무엇입니까?

Answer 1

Items은 선언되지 않은 유형의 컴파일러에 관한 한 런타임에서 전혀 아닐 수도 있습니다. 즉, 반드시 배열 일 필요는 없습니다. 물론 우리는 사전의 일부이기 때문에 배열이 될 것이지만 선언 된 유형이 없으므로 (Object Browser는 반환 유형이없는 함수임을 나타냄) 기본적으로 Variant로 지정됩니다. 컴파일러는 런타임에 배열이 될 것이라고 보장 할 수 없으므로 Test() proc에서 시도하는 선언을 허용하지 않습니다. 런타임에서 , 그것은 배열되고, 그래서 TypeName()은 VBA가 변형 배열에 할당을 허용하지 흥미롭게 Variant()

로 보여줍니다, 그래서 이것은 작동합니다

Sub Start() 
    Dim x As Dictionary 
    Dim y() As Variant 
    Set x = New Dictionary 
    Call x.Add("first", 1) 
    MsgBox TypeName(x.Items) 'Displays "Variant()" 
    y = x.Items ' this is fine 
    Call Test(y) 'this works 
End Sub 

Sub Test(withArray() As Variant) 

End Sub