Question

vb中读Excel数据

我要得到EXCEL中到底有多少行数据，但不知道要怎样实现。请高手帮忙呀，谢谢了。
我程序是这样的，
For k = 1 To xlSheet.cells.rows ‘这边不知道要怎样得到行数
arrxl(k) = xlSheet.Cells(k, 1)
Next

Answer 1

i = 1
Do While xlSheet.cells(i, 1) <> ""
arrxl(i) = xlSheet.cells(i + 1, 1)
i = i + 1
Loop

上面代码可以读取多有连续的行，如果某行为空则结束！

Answer 2

我只知道VBA中的语句:
Range("A65536").End(xlUp).Row
或者:
[A65536].End(xlUp).Row
或者:
[A65536].END(3).ROW

你试一下在VB中行不行.