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

Question

我想要做的是在VBA中使用后期绑定在本地C#上填充一个ArrayListusing .AddRange()方法ArrayList,但是我无法弄清楚如何将另一个对象传递ArrayList给它作为参数......到目前为止我尝试的其他任何东西都失败了...

基本上我现在正在做的事情(注意:通过mscorlib.dll list是C#的ArrayList)

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

所以我听说我可以将数组传递给.AddRange().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

注意:我已经尝试传递一个原生的VBA变种数组和CollectionRanges - 除了另一个ArrayList失败之外的一切.

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

或者从Range创建集合而不循环的任何替代方法？

_{奖金问题:*或者可能还有另一个内置的.Net COM Visible Collection可以从VBA Range对象或数组中填充而不需要循环,而且已经有了.Reverse？}

注意:我知道我可以创建一个.dll包装器来实现这一点,但我对原生解决方案感兴趣 - 如果存在的话.

---

更新

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

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 

该范围的 Value 被编组为array。当然，这就是您能想象到的最基本的 .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());
        } 
    }

你可能不太关心这个。您可以使用一个小访问器类来包装尴尬的数组并像向量一样工作：

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