各位如何EXCEL中的内容导入VB的列表框呀,具体代码是什么?

[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，