通过Excel范围循环填充Combobox VB.Net

我有一个程序，需要遍历一个非常大的Excel范围，将两个范围组合成一个combobox的值。 我有下面的代码这样做，但它所做的是迭代第一个值五次。 如果我删除第一个FOR循环，那么它只是简单地返回第一个值，从不完成。 任何build议，我可以做些什么来擦亮这个代码，并得到它的工作？

Dim i As Integer If TenantBox.SelectedItem = "CNS" Then WFMBook.Workbooks.Open("C:\Schedule.xlsx") For i = 0 To 5 Step +1 For Each CNSCell In WFMBook.Range("A3:A1441").Cells f = CNSCell.Value.ToString Next For Each tst In WFMBook.Range("B3:B1441").Cells l = tst.Value.ToString Next ComboBox1.Items.Add(f + " " + l) If (i = 5) Then Exit For End If Console.WriteLine(i) Next End If 

Answer 1

试试这个，如果VBA是1的话就把x改为1。

 If TenantBox.SelectedItem = "CNS" Then WFMBook.Workbooks.Open("C:\XHSchedule.xlsx") Dim colCount = WFMBook.Range("A3:A8").Cells.Count For x = 1 To colCount Step +1 For Each CNSCell In WFMBook.Range("A3:A8").Cells f = WFMBook.Range("A3:A8").Cells(x).Value.ToString l = WFMBook.Range("B3:B8").Cells(x).Value.ToString Next ComboBox1.Items.Add(f + " " + l) Next End If