VB 操作EXCEL 念获得表内数据区域的最大行数

VB 操作EXCEL 想获得表内数据区域的最大行数
本帖最后由 tanzhiwei 于 2011-04-27 20:43:48 编辑 VB 操作EXCEL
想获得表内数据区域的最大行数。
maxrow = xlSheet.UsedRange.Rows.Count

如果表内第一行第一列有数据，就能正确检测到数据最大行数
否则都不正确。

比如，有一张空sheet1,我在100行，10列处写入数据，运行
maxrow = xlSheet.UsedRange.Rows.Count
结果不正确,结果<100

如果sheet1的第一行第一列加了一个数据，再用上面的代码检测，
结果是maxrow=100,完全正确

有哪位大侠知这是啥原因呀，谢谢


[解决办法]
UsedRange.Rows.Count是指你使用了多少行，不是从多少行开始使用
[解决办法]
循环查找1-256列每一列的Count值，最大的则为最大行数
    maxline = 0
    For i = 1 To 256
        l = Cells(65536, i).End(xlUp).Row
        If l > maxline Then maxline = l
    Next i
    Debug.Print maxline