？怎么获得sheet1和sheet2中的已使用的行数，

？求助？如何获得sheet1和sheet2中的已使用的行数，急？
Set   oExcel   =   CreateObject( "Excel.Application ")
                    Set   oBook   =   oExcel.workbooks.Open( "C:\ "   &   FileName1   &   ".xls ")
                    Set   oSheet1   =   oBook.worksheets(1)
                    Set   oSheet2   =   oBook.worksheets(2)

                    Set   rng   =   oExcel.ActiveSheet.UsedRange
                    oSheet1.Activate
                    r1   =   rng.Rows.Count
                    oSheet2.Activate
                    r2   =   rng.Rows.Count
希望获得
r1是sheet1的已使用行数
r2是sheet2的已使用行数

但是每次两个值都一样，都为excel中默认激活的那个sheet的已使用行数，也是oSheet1.Activate，和oSheet2.Activate没有起到作用，急啊，是不是语句用错了呢？大家帮帮我吧

------解决方案--------------------
r1 = oSheet1.UsedRange.Rows.Count
r2 = oSheet2.UsedRange.Rows.Count
试试