excel表格中如何计行数

1.怎么统计一个excle事情表中的数据行数

引用ELCEL工具_Click()DimExcelBookAsExcel..WorksheetSetExcelBook=GetObject("c:\1.xls")SetEsheets=ExcelBook.SheetsIfEsheets.Count=0ThenExitSubExcelBook.ActivateSetEsheet=Esheets(1)Esheet.ActivateMsgBox"行："&Esheet.UsedRange.Columns.ColumnMsgBox"列："&Esheet.UsedRange.Rows.CountExcelBook.CloseSetExcelBook=NothingSetEsheets=NothingSetEsheet=NothingEndSub。