c# - 如何在不循环的情况下将数组 (Range.Value) 传递给 native .NET 类型？

Question

我想做的是填充一个 ArrayList使用 .AddRange() VBA 中的方法在 native C# ArrayList 上使用后期绑定(bind)，但我无法弄清楚如何将除另一个 ArrayList 之外的对象作为参数传递给它......其他任何东西到目前为止我已经尝试过失败......

基本上我现在在做什么(注意:list 是 C# 的 ArrayList，通过 mscorlib.dll)

Dim list as Object
Set list = CreateObject("System.Collections.ArrayList")

Dim i As Long
For i = 1 To 5
    list.Add Range("A" & i).Value2
Next

但是，如果 i 可以是 = 500K，这是非常低效和丑陋的。

在 VBA 中这也有效:

ArrayList1.AddRange ArrayList2

但我真正需要/想要的是传递一个数组而不是ArrayList2

所以 I heard I can pass an array to the .AddRange() parameter in .NET.我在一个小型 C# 控制台应用程序中对其进行了测试，它似乎工作得很好。以下代码在纯 C# 控制台应用程序中运行良好。

ArrayList list = new ArrayList();
string[] strArr = new string[1];
strArr[0] = "hello";
list.AddRange(strArr);

所以回到我的 VBA 模块尝试做相同它失败了..

Dim arr(1) As Variant
arr(0) = "WHY!?"

Dim arrr As Variant
arrr = Range("A1:A5").Value

list.AddRange arr                     ' Fail
list.AddRange arrr                    ' Fail
list.AddRange Range("A1:A5").Value    ' Fail

注意:我已经尝试传递一个 native VBA 变量数组和Collection，范围 - 除了另一个 ArrayList 之外的所有内容都失败了。

如何将 native VBA 数组作为参数传递给 ArrayList？

或者有什么替代方法可以在不循环的情况下从 Range 创建集合？？

_{奖励问题:*或者可能有另一个内置的 .Net COM 可见集合，可以从 VBA Range 对象或数组填充而无需循环，并且已经有一个 .Reverse?}

注意:我知道我可以制作一个 .dll 包装器来实现此目的，但我对 native 解决方案感兴趣 - 如果存在的话。

---

更新

为了更好地说明为什么我要完全避免显式迭代 - 这是一个示例(为了简单起见，它只使用一列)

Sub Main()

    ' Initialize the .NET's ArrayList
    Dim list As Object
    Set list = CreateObject("System.Collections.ArrayList")


    ' There are two ways to populate the list.
    ' I selected this one as it's more efficient than a loop on a small set
    ' For details, see: http://www.dotnetperls.com/array-optimization
    list.Add Range("A1")
    list.Add Range("A2")
    list.Add Range("A3")
    list.Add Range("A4")
    list.Add Range("A5") ' It's OK with only five values but not with 50K.

    ' Alternative way to populate the list
    ' According to the above link this method has a worse performance
    'Dim i As Long
    'Dim arr2 As Variant
    'arr2 = Range("A1:A5").Value2
    'For i = 1 To 5
    '    list.Add arr2(i, 1)
    'Next

    ' Call native ArrayList.Reverse
    ' Note: no looping required!
    list.Reverse

    ' Get an array from the list
    Dim arr As Variant
    arr = list.ToArray

    ' Print reversed to Immediate Window
    'Debug.Print Join(arr, Chr(10))

    ' Print reversed list to spreadsheet starting at B1
    Range("B1").Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)

End Sub

请注意:我唯一需要循环的时间是填充列表 (ArrayList) 我想做的只是找到一种方法将 arr2 加载到 ArrayList 或其他没有循环的 .NET 兼容类型。

在这一点上，我发现没有本地/内置的方法可以这样做，这就是为什么我认为我将尝试实现我自己的方法，如果成功的话，可能会提交 Interop 库的更新。

Answer 1

   list.AddRange Range("A1:A5").Value 

范围的值被编码为一个数组。当然，这就是您可以想象到的最基本的 .NET 类型。然而，这一个已经响起，它不是一个“正常的”.NET 数组。 VBA 是一个运行时环境，喜欢创建第一个元素从索引 1 开始的数组。这是 .NET 中的不符合数组类型，CLR 喜欢第一个元素从索引 0 开始的数组。唯一您可以使用的 .NET 类型是 System.Array 类。

一个额外的问题是数组是一个二维数组。这使您尝试将它们转换为 ArrayList 的尝试失败了，多维数组没有枚举器。

所以这段代码工作得很好:

    public void AddRange(object arg) {
        var arr = (Array)arg;
        for (int ix = ar.GetLowerBound(0); ix <= arr2.GetUpperBound(0); ++ix) {
            Debug.Print(arr.GetValue(ix, 1).ToString());
        } 
    }

您可能不太关心这些。您可以使用一个小的访问器类来包装笨拙的 Array 并充当像一个向量:

class Vba1DRange : IEnumerable<double> {
    private Array arr;
    public Vba1DRange(object vba) {
        arr = (Array)vba;
    }
    public double this[int index] {
        get { return Convert.ToDouble(arr.GetValue(index + 1, 1)); }
        set { arr.SetValue(value, index + 1, 1); }
    }
    public int Length { get { return arr.GetUpperBound(0); } }
    public IEnumerator<double> GetEnumerator() {
        int upper = Length;
        for (int index = 0; index < upper; ++index)
            yield return this[index];
    }
    System.Collections.IEnumerator System.Collections.IEnumerable.GetEnumerator() {
        return GetEnumerator();
    }

现在你可以用“自然”的方式写它了:

    public void AddRange(object arg) {
        var arr = new Vba1DRange(arg);
        foreach (double elem in arr) {
            Debug.Print(elem.ToString());
        }
        // or:
        for (int ix = 0; ix < arr.Length; ++ix) {
            Debug.Print(arr[ix].ToString());
        }
        // or:
        var list = new List<double>(arr);
    }