如何将combobox的.List保存到variables

我想将一个combobox中的所有项目存储在一个variables中。 variables应该是什么types？ 我试图做一个

Dim ComboBoxItems() As String ' dynamic array of strings 

但后来我不知道如何将项目从combobox复制到这个dynamic数组？

我可以做一个循环：

 for i = 1 to combobox.ListCount - 1 ComboBoxItems(i+1) = combobox.List(i) next i 

（注意，我是对的，它真的很疯狂，dynamic数组是1索引，而combobox列表是0索引??）

这是要走的路吗？ 或者肯定有办法复制整个列表没有循环？

Answer 1

对于名为Combobox1的工作表上的ActiveXcombobox，您可以使用：

 Sub Test() Dim vArr() ReDim vArr(1 To ComboBox1.ListCount) vArr = ComboBox1.List End Sub 

用户窗体与组合ComboBox1和命令buttonCommandButton1相同的方法

 Private Sub CommandButton1_Click() Dim S() ReDim S(1 To Me.ComboBox1.ListCount) S = Me.ComboBox1.List End Sub Private Sub UserForm_Initialize() 'Load some items into ComboBox With Me.ComboBox1 .AddItem "fred, jones'" .AddItem "mary" .AddItem "wayne" End With End Sub