[英]How can I pass VBA variant array data type through COM interop into C# method
目前我正在嘗試通過 COM 互操作將變體數據類型數組傳遞到 ac# 方法中。 問題是,將其傳遞為:
[MarshalAs(UnmanagedType.SafeArray)
但是,這似乎不起作用,有人對我如何將其作為參數傳遞有任何提示嗎?
這是我的完整 c# 源代碼:
using System;
using System.Runtime.InteropServices;
using System.Collections.Generic;
using System.Text;
using System.Linq;
using System.Threading;
using System.Threading.Tasks;
using System.Reflection;
namespace ExpandExcel
{
[ComVisible(true)]
[ClassInterface(ClassInterfaceType.None)]
public class ExpandExcelStandard
{
#region Public Static Methods
[return: MarshalAs(UnmanagedType.SafeArray)]
public static T[] RemoveDuplicates<T>([MarshalAs(UnmanagedType.SafeArray)] ref T[] arr)
{
// Creates a hash set based on arr
HashSet<T> set = new HashSet<T>(arr);
T[] resultArr = new T[set.Count];
set.CopyTo(resultArr);
return resultArr; // Return the resultArr
}
#endregion
}
}
這是我的完整 VBA 源代碼:
Sub main()
Dim arr(1000000) As Variant
Dim ExpandExcel As ExpandExcelStandard
Set ExpandExcel = New ExpandExcelStandard
For i = 0 To UBound(arr)
Randomize
arr(i) = Int((1000000 + 1) * Rnd)
Next i
Dim resultArr() As Variant
resultArr = ExpandExcel.RemoveDuplicates(arr)
End Sub
您不能在 COM 中使用泛型,也不能使用靜態函數等。這是一個應該可以工作的類似代碼:
VB
Sub main()
Dim arr(1000000) As Variant
For i = 0 To UBound(arr)
Randomize
arr(i) = Int((1000000 + 1) * Rnd)
Next i
Set ExpandExcel = CreateObject("ExpandExcelStandard") // I used late binding but early is fine too
resultArr = ExpandExcel.RemoveDuplicates(arr)
End Sub
C#
[ProgId("ExpandExcelStandard")] // because I wanted late binding, I declared a progid
[ComVisible(true)]
public class ExpandExcelStandard
{
// .NET object (w/o any Marshal spec) is passed as an automation Variant
public object[] RemoveDuplicates(object[] arr) => new HashSet<object>(arr).ToArray();
}
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.