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

[舍南舍北]

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

[lxcc]

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

[creazyfish]

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

[Abyss-Xu]

学习

[tztz520]

''首先引用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 = Nothing

End Sub

[junki]

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