如何将ArrayList填充到VBA用户窗体的ListBox中？

1. 引用mscordlib.dll库 #

• 打开VBA编辑器（按Alt+F11）
• 点击菜单栏【工具】→【引用】
• 在引用窗口点击【浏览】，找到mscordlib.dll（常见路径：C:\Windows\Microsoft.NET\Framework\v4.0.30319\mscordlib.dll，可根据你的.NET版本调整路径）
• 勾选该库后点击确定

2. 修正代码关键问题 #

（1）ArrayList转数组后赋值

VBA的ListBox.List仅支持二维数组，ArrayList无法直接赋值，需调用ToArray方法转换：

ListBox1.List = MyList.ToArray

（2）绑定到窗体初始化事件

将代码移到用户窗体的Initialize事件中，确保窗体加载时自动执行：

Private Sub UserForm_Initialize()
    Dim MyList As New ArrayList
    ' 若未引用库，可保留CreateObject方式：Dim MyList As Object: Set MyList = CreateObject("System.Collections.ArrayList")
    
    MyList.Add "Item1"
    MyList.Add "Item2"
    MyList.Add "Item3"
    
    ListBox1.List = MyList.ToArray
End Sub

3. 验证结果 #

保存代码后运行用户窗体，ListBox将正常显示添加的三个条目。

内容的提问来源于stack exchange，提问作者Tounn