Question

如何解决VBA中combobox添加项目

各路VBA高手，我编了个combobox添加项目的程序，可怎么试也不好使，还请高手们帮看看到底问题出在哪，先谢谢各位了！编码如下：
Private Sub userform_initialize()

Dim a As Integer, b As Integer, c As Integer, d As Integer
b = Workbooks("book1").Worksheets("sheet1").Range("b1048576").End(xlUp).Row
For a = 2 To b
ComboBox2.AddItem Workbooks("book1").Worksheets("sheet1").Cells(a, 2)
Next
d = Workbooks("book2").Worksheets("sheet1").Range("b1048576").End(xlUp).Row
For c = 2 To d
ComboBox1.AddItem Workbooks("book2").Worksheets("sheet1").Cells(c, 2)
Next

End Sub
怎样编写路径？

Answer 1

添加的语裂态句对的
其他可能的问题:
1.窗体是否为userform
2.组合框是否名为combobox1、combobox2
3.excl文件是否能读取

建议有目颂备的性的分步实现,逐步排查问题.比如要证实组合框是否能添加项,在窗体中加入按钮野源毁,事件为给组合框添加一个"aaa"

Answer 2

如果是跨工作薄使用的话，你这样是有问题的。因为跨工作薄使用时，需要告诉VBA你的路径是什么哦。。。

Answer 3

b = Workbooks("book1"兆明毁态).Worksheets("sheet1").Range("A65536").End(xlUp).Row

...
d = Workbooks("book2").Worksheets("sheet1").Range("族余告A65536").End(xlUp).Row
...

Answer 4

Range("b1048576") 这个有槐宴册问题, EXCEL 最多才65536.

b=Workbooks("book1").Worksheet.("祥绝sheet1").ActiveSheet.UsedRange.Rows.Count

d=Workbooks("book2").Worksheet.("铅宏sheet1").ActiveSheet.UsedRange.Rows.Count