Use o comando Data1 para conectar com seu arquivo excel.
Em propriedades :
Databasename : digite o caminho completo do seu arquivo em excel.
Connect : Escolha Excel 8.0
Recordsource: Escolha a Planilha que deve ser pesquisada (Plan1, Plan2 ...)
Faça um Do while com um contador assim :
Private Sub Command1_Click()
Data1.Recordset.MoveMin
contador = 1
Do While Not Data1.Recordset.EOF
contador = contador + 1
Data1.Recordset.MoveNext
Loop
MsgBox "A quantidade de linhas é :" & contador
End Sub
Espero que te ajude !!!
Um abraço
Lú
