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

[amityliu]

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

[yangao]

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

[amityliu]

谢谢！
解决了！给分！哈哈

[zzyong00]

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

[amityliu]

怎么给不了分呢？