获取EXCEL文件的行数

类似DATATABLE的GETROWCOUNT方法

Set xlapp = Createobject("excel.application")
Set wkBook = xlapp.Workbooks.Open("c:\aa.xls")
Set wksheeta = wkBook.Worksheets("sheet1")
n=wksheeta.UsedRange.Cells.Rows.Count
msgbox "n="&n
wkbook.save
wkbook.close
xlapp.quit
set xlapp = nothing

有点烦，换不换工作的问题。现在工作地方的环境还是不错，但这个项目做完后就去做其他工作，非测试方面的，所以有点想换个地方。软中，虽然谈的差不多了，但不想去了，待遇也不比这好多少，上班还要跑那么远。还有个地方在等，明天没消息就差不多没希望了。

不知不觉的就浪费了很多，很清楚在做些什么，但就是改不了，依然那样