Filas de un Excel desde VB
¿Sabriais como puedo obtener el número de finas de una hoja de excel desde visual basic?
Gracias, Ana
Gracias, Ana
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
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
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.
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.
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
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
Se puede hacer usando la propiedad UsedRange:
activeworkbook.worksheets(hoja).usedrange.rows.count
activeworkbook.worksheets(hoja).usedrange.rows.count