？求助？如何获得sheet1和sheet2中的已使用的行数，急？

Question

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没有起到作用，急啊，是不是语句用错了呢？大家帮帮我吧

Answer 1

r1 = oSheet1.UsedRange.Rows.Count
r2 = oSheet2.UsedRange.Rows.Count
试试

Answer 2

对sheet操作，不一定要激活它呀！