Компилятор жалуется на неправильный тип данных

Question

Я написал следующую процедуру, каждый раз, когда я пытаюсь запустить ее, компиляция говорит, что Data - неправильный тип данных. ChooseLineItem принимает диапазон в качестве параметра, и, как вы можете видеть, Data не является диапазоном, тогда ChooseLineItem не будет выполнен.

Итак, мой вопрос заключается в том, как получить этот код для компиляции?

FYI Причина, почему Data является decared как вариант, потому что он должен быть способен принимать диапазоны и массивы.

Answer 1

Попробуйте это:

Public Function MakeKeyValPairs(Data As Variant) As Variant() 
     Dim LineItem As Integer, Headers As KeyValStruct, r as Range 

     If TypeName(Data) = "Range" Then 
     Set r = Data 
     LineItem = ChooseLineItem(r) 
    Else 
     LineItem = 1 
    End If 
    Headers = FindHeaders(Data) 

    MakeKeyValPairs = AssembleAray(Data, Headers, LineItem) 
End Function