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