企业如何管理创新:如何统计一个excle工作表中的数据行数

来源：百度文库编辑：杭州交通信息网时间：2024/04/28 18:03:33

引用ELCEL对象
OptionExplicit
PrivateSubCommand1_Click()
DimExcelBookAsExcel.Workbook
DimEsheetsAsSheets
DimEsheetAsExcel.Worksheet

SetExcelBook=GetObject("c:\1.xls")
SetEsheets=ExcelBook.Sheets
IfEsheets.Count=0ThenExitSub
ExcelBook.Activate
SetEsheet=Esheets(1)
Esheet.Activate

MsgBox"行："&Esheet.UsedRange.Columns.Column
MsgBox"列："&Esheet.UsedRange.Rows.Count

ExcelBook.Close
SetExcelBook=Nothing
SetEsheets=Nothing
SetEsheet=Nothing

EndSub

函授ROWS

应该有这样的函数

如何统计一个excle工作表中的数据行数 excel中的同一列中的每个数据重复出现的间隔行数如何统计 excle 中的”数据透视表” 如何忽略EXCLE表中某一行数据？统计一个表中的数据并排序 vb 如何统计文本行数如何从多个excle工作表中挑选某些数据并将这些数据放入新表如何限定数据库返回数据行数? 如何在Excel中对工作表内部的数据进行分类统计？如何将多个Excel工作薄的数据作统计？