暴露於VBA（COM）C＃屬性：運行時錯誤 '424'：對象需要

Question

此C＃代碼是在.NET 4.5 ComVisible組件：

C＃代碼

[InterfaceType(ComInterfaceType.InterfaceIsDual)] 
[Guid("22341123-9264-12AB-C1A4-B4F112014C31")] 
public interface IComExposed 
{ 
    double[] DoubleArray { get; set; } 
    object[] ObjectArray { get; set; } 
    object PlainObject { get; set; } 
    double ScalarDouble { get; set; } 
} 

[ClassInterface(ClassInterfaceType.None)] 
[Guid("E4F27EA4-1932-2186-1234-111CF2722C42")] 
[ProgId("ComExposed")] 
public class ComExposed : IComExposed 
{ 
    public double[] DoubleArray { get; set; } 
    public object[] ObjectArray { get; set; } 
    public object PlainObject { get; set; } 
    public double ScalarDouble { get; set; } 
} 

從Excel 2010中32位VBA，我有以下行爲：

VBA代碼

Dim VBArray(1 To 3) As Double 
VBArray(1) = 1 
VBArray(2) = 2 
VBArray(3) = 3 

Dim oComExposedEarlyBinding As New ComExposed 

' Works 
oComExposedEarlyBinding.ScalarDouble = 5 

' Compile Error: Function or interface marked as restricted, 
' or the function uses an Automation type not supported in Visual Basic 
oComExposedEarlyBinding.DoubleArray = VBArray 

' Compile Error: Function or interface marked as restricted, 
' or the function uses an Automation type not supported in Visual Basic 
oComExposedEarlyBinding.ObjectArray = VBArray 

' Run-time error '424': Object required 
oComExposedEarlyBinding.PlainObject = VBArray 

' Run-time error '424': Object required 
oComExposedEarlyBinding.PlainObject = 5 

Dim oComExposedLateBinding As Variant 
Set oComExposedLateBinding = New ComExposed 

' Works 
oComExposedLateBinding.ScalarDouble = 5 

' Run-time error '5': Invalid procedure call or argument 
oComExposedLateBinding.DoubleArray = VBArray 

' Run-time error '13': Type mismatch 
oComExposedLateBinding.ObjectArray = VBArray 

' Works 
oComExposedLateBinding.PlainObject = VBArray 

' Works 
oComExposedLateBinding.PlainObject = 5 

正如您所注意到的PlainObject正在後期綁定模式下工作，但很顯然，這是由於輸入丟失而導致VBA中的自動完成（IntelliSense）失敗，這在我的場景中是不可接受的。

，我關心的皺紋在我的例子是以下行：

oComExposedEarlyBinding.DoubleArray = VBArray 
oComExposedEarlyBinding.ObjectArray = VBArray 
oComExposedEarlyBinding.PlainObject = VBArray 

得到任何的三條線以上工作會滿足我的需要，所以你有什麼解決方法或解決方案，這將使這項工作（請注意，我不想將數組作爲參數傳遞給函數）？

更新： 將此問題提交給Microsoft的支持並等待將近三週後。他們確認這是一個bug，這是KB：http://support.microsoft.com/kb/327084，C＃中唯一的解決方法就是標記爲下面的解決方案。 但是，如果用C++/CLI編寫，我能夠確認此代碼的工作方式與預期的相同。

Answer 1

VBA陣列必須基於零和在c＃使用ref參數，樣品：

Option Explicit 

Sub test() 
    Dim VBArray(0 To 2) As Double 
    VBArray(0) = 1 
    VBArray(1) = 2 
    VBArray(2) = 3 

    Dim oComExposedEarlyBinding As New ComExposed 
    oComExposedEarlyBinding.SetDoubleArray VBArray 

End Sub 

---

using System.Runtime.InteropServices; 

namespace COMVisibleTest 
{ 
    [InterfaceType(ComInterfaceType.InterfaceIsDual)] 
    [Guid("22341123-9264-12AB-C1A4-B4F112014C31")] 
    public interface IComExposed 
    { 
     void SetDoubleArray(ref double[] doubleArray); 
    } 

    [ClassInterface(ClassInterfaceType.None)] 
    [Guid("E4F27EA4-1932-2186-1234-111CF2722C42")] 
    [ProgId("ComExposed")] 
    public class ComExposed : IComExposed 
    { 
     private double[] _doubleArray; 

     public void SetDoubleArray(ref double[] doubleArray) 
     { 
      _doubleArray = doubleArray; 
     } 
    } 
} 

Answer 2

VBA總是按照引用（VT_VARIANT | VT_BYREF）傳遞包裝在變體中的數組，因爲其中包含實際數組的其他變體，所以在指定元素類型時不能在屬性中使用數組，所以需要使用方法您可以將參數指定爲「通過參考」。

[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)] 
[Guid("22341123-9264-12AB-C1A4-B4F112014C31")] 
public interface IComExposed 
{ 
    void setDoubleArray(ref double[] myArray); 
    //(...) 
} 

一個類似的問題：
Pass an array from vba to c# using com-interop

對這個問題的回答中提到使用用戶定義的集合，而不是原始類型的數組中的選項，也許這也可以成爲解決你的問題。在文檔中

相關參考文獻：

Marshaling ByRef Variants

VARIANT and VARIANTARG in WinAPI

MarshalAsAttribute class in .Net

Passing Arrays to COM in .Net