Filas de un Excel desde VB

Anav
11 de Febrero del 2004
¿Sabriais como puedo obtener el número de finas de una hoja de excel desde visual basic?

Gracias, Ana

sdemingo
11 de Febrero del 2004
Dim e As Object
Dim ruta As String

Set e = CreateObject("Excel.Application")
ruta = App.Path & "\ejemplo.xls"
e.Workbooks.Open ruta
e.Visible = True

\' Obtienes las filas del documento
MsgBox e.ActiveSheet.Rows.Count

Salu2
sdemingo

Anav
11 de Febrero del 2004
Hola, sdemingo.

He probado el código que me pusiste en el foro, pero de esta forma me dice el número de filas totales de la hoja, pero .... ¿habría forma de saber el número de filas rellenas de la hoja?, es decir, si el libro tiene 5000 filas pero solo se ha rellenado o si solo se ha escrito en 5, ¿habría forma de saberlo?
Saludos, Ana.

sdemingo
11 de Febrero del 2004
Pozi, pero para eso es necesario saber la celda en la que se escribe para preguntar por su contenido.

Supongamos que escribes en la columna 1

Dim numeroFilas As Double

numerosfilas = 0
For i = 1 To ActiveSheet.Rows.Count
If ActiveSheet.Cells(i, 1) <> "" Then
numeroFilas = numeroFilas + 1
End If
Next i
MsgBox numeroFilas

Saludos
sdemingo

Anv
11 de Febrero del 2004
ok, gracias

KountZer0
11 de Febrero del 2004
Se puede hacer usando la propiedad UsedRange:
activeworkbook.worksheets(hoja).usedrange.rows.count

sdemingo
11 de Febrero del 2004
Hola,

cierto es ;-)
ActiveSheet.UsedRange.Rows.Count
pero si solo tienes algo escrito en la fila 28 te dice que tienes 28 filas con contenido.

salu2
sdemingo