如何将数组（Range.Value）传递给本地.NETtypes而不循环？
我想要做的是使用VBA中的.AddRange()方法使用本机C＃ ArrayList后期绑定填充ArrayList ，但我不知道如何传递一个对象而不是另一个ArrayList作为参数…任何东西否则我已经尝试到目前为止失败…
所以基本上我现在正在做什么（注意： list是通过mscorlib.dll 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
所以我听说我可以将一个数组传递给.NET中的.AddRange()参数。 我在一个小的C＃控制台应用程序中testing它，它似乎工作得很好。 下面在纯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数组variables和Collection ，范围 – 除了另一个ArrayList失败。
如何将本地VBA数组作为parameter passing给ArrayList ？
或者从Range创build集合的任何替代方法，无需循环？
奖金的问题：*或者也许有另一个内置的.Net COM可视化集合，可以填充从VBA Range对象或数组没有循环，并且已经有一个.Reverse ？
注： 我知道我可以做一个.dll包装来实现这一点，但我对本机解决scheme感兴趣 – 如果有的话 。
更新
为了更好地说明为什么我想完全避免显式迭代 – 下面是一个例子（ 为简单起见，它只使用一列 ）
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），我想做的只是find一种方法来将arr2加载到一个ArrayList或另一个没有循环的.NET兼容types中。
在这一点上，我看到没有本地/内置的方式这样做，这就是为什么我认为我会尝试实现我自己的方式，也许如果它提交Interop库更新。
list.AddRange Range("A1:A5").Value
范围的值被编组为一个数组 。 这就是你所能想象到的最基本的.NETtypes。 然而，这一个有钟声，它不是一个“正常”的.NETarrays。 VBA是一个运行时环境，喜欢创build第一个元素从索引1开始的数组。在.NET中，这是一个不符合数组的types，CLR喜欢这样的数组，它的第一个元素从索引0开始。可以使用唯一的.NETtypes这些是System.Array类。
另一个复杂的是数组是一个二维数组。 这将kibosh放在你试图把它们转换成一个ArrayList，multidimensional array没有一个枚举器。
所以这段代码工作得很好：
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); }
这是@ phoog评论扩展的概念certificate。 正如他指出的那样， AddRange方法需要一个ICollection 。
实施ICollection
在VBA IDE中，添加对mscorlib.tlb的引用：Tools —> References，然后浏览find你的.NET Framework mscorlib.tlb。 我在“C：\ Windows \ Microsoft.NET \ Framework \ vX.X.XXXXX \ mscorlib.tlb”。
创build一个名为“clsWrapLongArray”的新类，如下所示：
Option Compare Database Option Explicit Implements ICollection Dim m_lngArr() As Long Public Sub LoadArray(lngArr() As Long) m_lngArr = lngArr End Sub Private Sub ICollection_CopyTo(ByVal arr As mscorlib.Array, ByVal index As Long) Dim i As Long Dim j As Long j = LBound(m_lngArr) For i = index To index + (ICollection_Count - 1) arr.SetValue m_lngArr(j), i j = j + 1 Next End Sub Private Property Get ICollection_Count() As Long ICollection_Count = UBound(m_lngArr) - LBound(m_lngArr) + 1 End Property Private Property Get ICollection_IsSynchronized() As Boolean 'Never called for this example, so I'm leaving it blank End Property Private Property Get ICollection_SyncRoot() As Variant 'Never called for this example, so I'm leaving it blank End Property
这里是使用的Array.SetValue方法。
创build一个名为“mdlMain”的新模块来运行示例：
Option Compare Database Option Explicit Public Sub Main() Dim arr(0 To 3) As Long arr(0) = 1 arr(1) = 2 arr(2) = 3 arr(3) = 4 Dim ArrList As ArrayList Set ArrList = New ArrayList Dim wrap As clsWrapLongArray Set wrap = New clsWrapLongArray wrap.LoadArray arr ArrList.AddRange wrap End Sub
如果你在End Sub上放置一个断点并运行Main() ，你可以通过检查在立即窗口中的ArrList看到它包含了从Long数组中添加的4个值。 您也可以通过代码来查看ArrayList实际调用ICollection接口成员Count和CopyTo以使其发生。
我可以看到，有可能扩展这个想法来创build工厂函数来包装types，如Excel范围，VBA数组，集合等。
这个方法也适用于String数组！ ：d
由于VBA数组是COM SAFEARRAYs，所以我发现了一些非常接近的答案，通过Googling "System.ArrayList" "SAFEARRAY"和"System.Array" "SAFEARRAY"和“COM Marshaling”进行细化，但没有任何解释可以将它们转换为在.NET调用中使用。
这是低效的，因为.Value2是一个COM调用。 调用它几千次会增加大量的互操作性开销。 将项目添加到循环中的数组应该快得多：
Dim list as Object Set list = CreateObject("System.Collections.ArrayList") Dim i As Long Dim a as Variant a = Range("A1:A5").Value2 For i = 1 To 5 list.Add a(i,1) Next
如何将本地VBA数组作为parameter passing给ArrayList？
我不认为你可以 – 一个本地的VBA数组不是一个ICollection ，所以创build一个的唯一方法是复制一个循环的值。
它在C＃控制台应用程序中工作的原因是因为C＃ 中的数组是 ICollection ，所以AddRange方法接受它们就好了。