Pase una matriz de vba a C# utilizando com-interop

Question

¿Cuál es la forma correcta de pasar una matriz de clases definidas por el usuario de vba a .net (específicamente C#) usando com-interop?

Aquí está mi código C#. Si llamo a Method1 desde vba, está fallando con "Array o el tipo definido por el usuario esperado" o "La función usa un tipo de automatización no compatible con Visual Basic".

public class MyClass 
{ 
    public Method1(UserDefinedClass[] Parameters) { ... } 
    public Method2(Object Parameters) { ... } 
} 

He leído un poco sobre la clase MarshallAsAttribute. ¿Podría ser esta la pieza faltante en el código C#?

Aquí está el código VBA que estoy usando:

Dim udt As New UserDefinedClass 
Dim myArray() 
myArray(1) = udt 
myClass.Method1(myArray) 
myClass.Method2(myArray) 

Answer 1

IIRC usted tiene que pasar matrices por referencia.

Trate declarar su método

public class MyClass 
{ 
    public void Method1([In] ref UserDefinedClass[] Parameters) { ... } 
    ... 
} 

Si no quiere contaminar su clase con parámetros árbitro para clientes .NET, puede definir una interfaz ComVisible para ser utilizado por los clientes COM, y aplicarlo explícita así:

[ComVisible(true)] 
public interface IMyClass 
{ 
    void Method1([In] ref UserDefinedClass[] Parameters) { ... } 
    ... 
} 

public class MyClass : IMyClass 
{ 
    void IMyClass.Method1(ref UserDefinedClass[] Parameters) 
    { 
     this.Method1(Parameters); 
    } 

    public Method1(UserDefinedClass[] Parameters) 
    { 
     ... 
    } 
} 

** En respuesta al comentario ** Si desea exponer una colección lugar de una matriz de VBA, sólo tiene que exponer a un empadronador, y cualquier otro método que desea que el código VBA para poder llamar (por ejemplo, Agregar, Re mover, Insertar, Borrar, ...). P.ej.

[ComVisible] 
public interface IUserDefinedClassCollection 
{ 
    IEnumerator GetEnumerator(); 

    int Count { get; }; 

    IUserDefinedClass this[int index] { get; } 

    int Add(IUserDefinedClass item); 

    // etc, other methods like Remove, Clear, ... 
} 

Luego, puede usarlo como de costumbre en VBA:

Dim objUserDefinedClasses As UserDefinedClassCollection 
... 
objUserDefinedClasses.Add objUserDefinedClass 
... 
For nIndex = 0 To objUserDefinedClasses.Count 

Next nIndex