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
  Imprimir  
Vista:

ultima fila de columna de excel

Publicado por Raymond (104 intervenciones) el 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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ultima fila de columna de excel

Publicado por leo (1 intervención) el 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ultima fila de columna de excel

Publicado por leo (9 intervenciones) el 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar