怎样才能知道一个excel文件中已经有多少条纪录

在窗体上加一个按钮，一个标签，粘贴以下代码即可知道行数。
Dim xls As Object
Dim wbk As Object
Dim wst As ObjectPrivate Sub Command1_Click()
    Set xls = CreateObject("excel.application")
    Set wbk = xls.Workbooks.Open("d:\temp.xls")
    Set wst = wbk.ActiveSheet
    ActiveCell.SpecialCells(xlLastCell).Select
    Label1.Caption = "本表行数为" & ActiveCell.Row
    xls.Quit
End Sub
若能对你有所帮助，我将非常高兴！