Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Visual Basic - ultima fila de columna de excel

Life is soft - evento anual de software empresarial
Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

ultima fila de columna de excel

Autor:Raymond (104 intervenciones)
Fecha:10/03/2006 21:15:17
Buenas mi pregunta es que como puedo saber cual es la ultima celda que esta escrita en una columna de un documento excel
Responder
información
Otras secciones de LWP con contenido similar...
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ultima fila de columna de excel

Autor:leo (1 intervención)
Fecha:12/03/2006 03:15:43
proba con esto

Dim ApExcel As Variant
dim fila

Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'ABRIR
ApExcel.Workbooks.Open ("ruta del archivo")

'Poner Titulos
fila=1
while(ApExcel.Sheets("nombre de la hoja").cells(fila,columna) <> "")

fila=fila+1

wend'revisa desde la fila 1 hasta la ultima fila escrita en numero de fila que te devuelve es el que le sigue a la ultima fila escrita
MsgBox "ultima fila escrita "fila-1

Set ApExcel = Nothing
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:ultima fila de columna de excel

Autor:leo (9 intervenciones)
Fecha:12/03/2006 03:18:12
proba con este codigo espero que sea lo que buscas

Dim ApExcel As Variant
Dim fila

Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'ABRIR
ApExcel.Workbooks.Open ("c:\libro11.xls")

'Poner Titulos
fila = 1
While (ApExcel.Sheets("hoja1").cells(fila, 1) <> "")

fila = fila + 1

Wend 'revisa desde la fila 1 hasta la ultima fila escrita en numero de fila que te devuelve es el que le sigue a la ultima fila escrita
MsgBox "ultima fila escrita" & fila - 1 'ultima fila escrita
MsgBox "ultima fila que sigue" & fila
Set ApExcel = Nothing
Comentar