来自C＃DLL的用户定义对象的VBA阵列

Question

背景信息：
我正在构建一个运行在VBA上的SCADA系统，我寻求C＃的一些功能。我在C＃中构建了一个DLL库，并获得了在DLL和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; 
    } 

} 

我返回的类是这样的：

[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(); 
    } 
} 

我的数据层：

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; 
    } 
} 

静态方法VBA呼吁：

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

在VBA我以这种方式获得数据：

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 

现在我的问题：
如何返回类 'BE_Log'
编辑的阵列或列表：这是我坚持：http://puu.sh/hnPGe/472ff863d0.png

我一直在努力制定一些微软文件，没有太多的运气。

原单导我随之而来的是这一个：
http://www.analystcave.com/excel-use-c-sharp-in-excel-vba/

他指出以下，但我不完全理解它。

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

我认为这事做“的MarshalAs”或者我在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

这是真实的读取数据的方式，但你没有接受某个数组参数的任何方法，所以它不适用于你的情况。

你有没有试图改变你的方法签名：

public Log CreateLogBook() 

到返回数组签名：

public Log[] CreateLogBook()