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。