各位如何EXCEL中的内容导入VB的列表框呀,具体代码是什么?
来源:百度知道 编辑:UC知道 时间:2024/09/12 20:20:15
谢谢,不过我要导入的表格内容中有三列,行数不故定,不知道该怎么写编码!!
[a65536].End(xlUp).Row
这行代码就可以获得存在数据的行数了
因为有三列,故参考代码:
x=[a65536].End(xlUp).Row
for i=1 to 3
for j=1 to x
listbox1.additem sheets(1).cells(j,i).value
next
next
这样就没问题了吧
如果你将sheets(1)工作表A1:A5中的内容倒入VB的列表框中,可按如下代码操作,不知当否。
For i = 1 To 5
ListBox1.AddItem Sheets(1).Cells(i, 1).Value
Next i
另外一种方法是在在列表框的RowSource属性值设置为SHEET1!A1:A5,