Tablica VBA obiektów zdefiniowanych przez użytkownika z biblioteki C# DLL

Question

Informacje podstawowe:
Buduję system SCADA, który działa na VBA i szukam niektórych uprawnień C#. Buduję bibliotekę DLL w języku C# i otrzymuję podstawowe dane do przepływu między biblioteką DLL a VBA.

[ComVisible(true), ClassInterface(ClassInterfaceType.AutoDual)] 
public class BE_Log 
{ 
    public string DateTime 
    { 
     [return: MarshalAs(UnmanagedType.BStr)] 
     get; 
     [param: MarshalAs(UnmanagedType.BStr)] 
     set; 
    } 
    public string User 
    { 
     [return: MarshalAs(UnmanagedType.BStr)] 
     get; 
     [param: MarshalAs(UnmanagedType.BStr)] 
     set; 
    } 
    public string SCADA 
    { 
     [return: MarshalAs(UnmanagedType.BStr)] 
     get; 
     [param: MarshalAs(UnmanagedType.BStr)] 
     set; 
    } 
    public string Tag 
    { 
     [return: MarshalAs(UnmanagedType.BStr)] 
     get; 
     [param: MarshalAs(UnmanagedType.BStr)] 
     set; 
    } 
    public string Area1 
    { 
     [return: MarshalAs(UnmanagedType.BStr)] 
     get; 
     [param: MarshalAs(UnmanagedType.BStr)] 
     set; 
    } 
    public string Area2 
    { 
     [return: MarshalAs(UnmanagedType.BStr)] 
     get; 
     [param: MarshalAs(UnmanagedType.BStr)] 
     set; 
    } 
    public string Description 
    { 
     [return: MarshalAs(UnmanagedType.BStr)] 
     get; 
     [param: MarshalAs(UnmanagedType.BStr)] 
     set; 
    } 
    public string ValueOld 
    { 
     [return: MarshalAs(UnmanagedType.BStr)] 
     get; 
     [param: MarshalAs(UnmanagedType.BStr)] 
     set; 
    } 
    public string ValueNew 
    { 
     [return: MarshalAs(UnmanagedType.BStr)] 
     get; 
     [param: MarshalAs(UnmanagedType.BStr)] 
     set; 
    } 

    public BE_Log(string DataTime, string User, string SCADA, string Tag, string Area1, string Area2,string Description) 
    { 
     this.DateTime = DateTime; 
     this.User = User; 
     this.SCADA = SCADA; 
     this.Tag = Tag; 
     this.Area1 = Area1; 
     this.Area2 = Area2; 
     this.Description = Description; 
    } 

    public BE_Log(string DataTime, string User, string SCADA, string Tag, string Area1, string Area2, string Description, string ValueOld, string ValueNew) 
    { 
     this.DateTime = DateTime; 
     this.User = User; 
     this.SCADA = SCADA; 
     this.Tag = Tag; 
     this.Area1 = Area1; 
     this.Area2 = Area2; 
     this.Description = Description; 
     this.ValueOld = ValueOld; 
     this.ValueNew = ValueNew; 
    } 

} 

I wrócił klasa tak:

[ComVisible(true), ClassInterface(ClassInterfaceType.AutoDual)] 
public class TI 
{ 
    private BLL_LogBook bll; 

    public TI() 
    { 
     bll = new BLL_LogBook(); 
    } 

    [return: MarshalAs(UnmanagedType.SafeArray, SafeArraySubType=VarEnum.VT_USERDEFINED)] // SafeArrayUserDefinedSubType = typeof(BE_Log) 
    public BE_Log[] CreateLogBook() 
    { 
     List<BE_Log> logs = bll.GetLogEntry(); 
     return logs.ToArray(); 
    } 
} 

Moja warstwa danych:

public class BLL_LogBook 
{ 
    public List<BE_Log> GetLogEntry() 
    { 
     List<BE_Log> logs = new List<BE_Log>(); 
     logs.Add(new BE_Log("05-05-2015", "some user", "scada01", "LA010NDA10CU12XQ12", "Ribe", "Esbjerg", "Some short description")); 
     logs.Add(new BE_Log("06-05-2015", "test user", "scada01", "LA010NDA10CU12XB05", "Herning", "KBH", "Some long description")); 
     logs.Add(new BE_Log("07-05-2015", "normal user", "scada02", "LA010NDA10CU12YQ01", "Åhus", "Tønder", "Some test description")); 

     return logs; 
    } 
} 

Statyczna metoda VBA woła:

static class UnmanagedExports 
{ 
    [DllExport] 
    [return: MarshalAs(UnmanagedType.IDispatch)] 
    static Object TI_Object() 
    { 
     return new TI(); 
    } 
} 

w VBA í otrzymałem dane w ten sposób:

Declare Function TI_Object Lib "<path>\\TJI.dll"() As Object 

Sub TestTheTestClass() 
    Dim TJI As Object 
    Set TJI = TI_Object() 

    Dim test As Variant 
    test = TJI.CreateLogBook() 

    Dim log As Variant 
    Set log = test(0) 

    Debug.Print log.User 
End Sub 

Teraz moje pytanie:
Jak mogę zwrócić Array lub Lista klasy 'BE_Log'
EDIT:To gdzie utknąłem: http://puu.sh/hnPGe/472ff863d0.png

Próbowałem opracować niektóre z dokumentacji Microsoft, bez powodzenia.

orginal przypomnienie i następnie było to jedno:
http://www.analystcave.com/excel-use-c-sharp-in-excel-vba/

On stwierdza co następuje, jednak ja nie całkowicie to rozumiem.

If you are using an array as an argument be sure to use the C# “ref” get by reference option e.g. ref int[] ar

myślę, że to ma coś wspólnego z „MarshalAs” lub sposób Czytam danych w VBA

Answer 1

If you are using an array as an argument be sure to use the C# “ref” get by reference option e.g. ref int[] ar

To prawda, ale nie ma żadnych metod, które mają argument tablicy , więc nie dotyczy to twojej sytuacji.

Czy próbowali zmiany metody Twój podpis:

public Log CreateLogBook() 

do podpisu, która zwraca tablicę:

public Log[] CreateLogBook()