100分哦，怎樣得到任何一個excel文件的行數？多謝了!

Question

怎樣得到任何一個excel文件的行數

Answer 1

MsgBox Sheet1.UsedRange.Rows.Count   'Sheet1为某个Sheet的名称

Answer 2

Sheets("Sheet1").[a1].CurrentRegion.Rows.Count
这个就可以的（sheet1，第一列的记录数）

Answer 3

''首先引用Microsoft Excel 11.0 Object Library,版本是根据你安装的EXCEL版本决定的Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim PointSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("F:\ABC2.XLS") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象不可见
Set PointSheet = xlBook.Worksheets.Item(1) '设置活动工作表MsgBox "总行数是:" & PointSheet.UsedRange.Rows.Count
xlApp.Quit
Set xlApp = Nothing  '"交还控制给Excel
Set xlBook = Nothing
Set PointSheet = NothingEnd Sub

Answer 4

使用Sheet1.UsedRange.Rows.Count计算已使用的行数。