VB.net读取excel中某列信息，其后提供给combobox
VB.net读取excel中某列信息，然后提供给combobox
我最近在学习vb.net时遇到了一些问题，在这里向大家请教。谢谢！
我是想读取excel中某列的信息，该列可能会有行合并项。将此列中不同的文字获取出来输出给combobox。我是这样编程的：
Dim n As Integer = 1
Dim i as Integer=n-1
Dim comboboxstring(i) As String
Do While excelsheet.Cells(n, 3).value <> ""
comboboxstring(n - 2) = excelsheet.Cells(n, 2).value
n = n + 1
Loop
Me.ComboBox3.Items.Clear()
Me.ComboBox3.Items.AddRange(comboboxstring)
我的意思是当excel中，第三列某单元格不为空时，我就将其值赋予comboxstring（）数组。最终将该数组添加到combobox的集合中。
现在我每次运行程序只能得到该列第一个单元格内容。下面的单元格不为空但没有加到combobox集合中，不知问题在哪里？
多谢！
------解决方案--------------------
Dim n As Integer = 1
Dim comboboxstring() As String
Do While excelsheet.Cells(n, 3).value <> ""
Redim Preserve comboboxstring(n - 1)
comboboxstring(n - 1) = excelsheet.Cells(n, 2).value
n = n + 1
Loop
Me.ComboBox3.Items.Clear()
Me.ComboBox3.Items.AddRange(comboboxstring)
我最近在学习vb.net时遇到了一些问题，在这里向大家请教。谢谢！
我是想读取excel中某列的信息，该列可能会有行合并项。将此列中不同的文字获取出来输出给combobox。我是这样编程的：
Dim n As Integer = 1
Dim i as Integer=n-1
Dim comboboxstring(i) As String
Do While excelsheet.Cells(n, 3).value <> ""
comboboxstring(n - 2) = excelsheet.Cells(n, 2).value
n = n + 1
Loop
Me.ComboBox3.Items.Clear()
Me.ComboBox3.Items.AddRange(comboboxstring)
我的意思是当excel中，第三列某单元格不为空时，我就将其值赋予comboxstring（）数组。最终将该数组添加到combobox的集合中。
现在我每次运行程序只能得到该列第一个单元格内容。下面的单元格不为空但没有加到combobox集合中，不知问题在哪里？
多谢！
------解决方案--------------------
Dim n As Integer = 1
Dim comboboxstring() As String
Do While excelsheet.Cells(n, 3).value <> ""
Redim Preserve comboboxstring(n - 1)
comboboxstring(n - 1) = excelsheet.Cells(n, 2).value
n = n + 1
Loop
Me.ComboBox3.Items.Clear()
Me.ComboBox3.Items.AddRange(comboboxstring)