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