¿Como se pueden contar las filas que hay en libro de excel?


RESPUESTA
=========

Suponiendo que la hoja de trabajo tiene un rango de celdas con nombre
llamado "Rango1", el siguiente código te devolverá el número de filas de
dicho rango:

    Dim xl As Excel.Application
    Dim objExcelSheet As Excel.Worksheet        ' Hoja de trabajo

    ' Creo una instancia de Excel
    Set xl = Excel.Application

    ' Abro el archivo
    xl.Workbooks.Open "C:\TEMP.xls"

    ' Establezco el objeto Sheet con la primera hoja activa
    Set objExcelSheet = xl.Workbooks(1).Sheets("WorkSheet1")

    ' Muestro el número de filas del rango
    MsgBox objExcelSheet.Range("Rango1").Rows.Count

    ' Cierro Excel
    xl.Quit

También puedes especifar el rango de la siguiente forma:

    MsgBox objExcelSheet.Range("$A$2:$M$50").Rows.Count

Un saludo.

--
Enrique Martínez

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)