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

你可能不太在乎这一点。 你可以使用一个小的访问器类来包装笨拙的数组并充当一个向量：

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评论的扩展。正如他所指出的，AddRange 方法需要 ICollection。

实现 ICollection

在 VBA IDE 中，添加对 mscorlib.tlb： Tools--->References 的引用，然后浏览以查找 .NET Framework mscorlib.tlb。我的在"C：''Windows''Microsoft.NET''Framework''vX.X.XXXXX''mscorlib.tlb"。

创建一个名为"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方法。

创建一个名为"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来实现它。

我可以看到可以扩展这个想法来创建工厂函数来包装 Excel 范围、VBA 数组、集合等类型。

同样的方法也适用于字符串数组！ :D

通过谷歌搜索"System.ArrayList" "SAFEARRAY"和"System.Array" "SAFEARRAY"并使用"COM 封送处理"进行改进，我找到了一些非常接近的答案，因为 VBA 数组是 COM 安全数组，但没有完全解释如何转换它们以用于 .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 数组作为参数传递给数组列表？

我认为你不能 - 本机 VBA 数组不是ICollection，因此创建一个数组的唯一方法是在循环中复制值。

它在 C# 控制台应用程序中工作的原因是 C# 中的数组是 ICollection s，因此 AddRange 方法可以很好地接受它们。