Page 1 of 1
Cómo saber Fila y Columna final en excel?
Posted: Thu Apr 12, 2018 3:41 pm
by Armando
Hola Amigos del foro:
En una hoja de Excel necesito saber cual es el número de la última fila usada,
lo mismo para saber cual es el número de la última columna usada.
Por usada quiero decir que tiene información.
Saludos
Re: Cómo saber Fila y Columna final en excel?
Posted: Thu Apr 12, 2018 4:36 pm
by noe aburto
Code: Select all
bSalida:=Mensaje('...','Importando cata de excel SAT')
oExcel:=TOleAuto():New( "Excel.Application" )
oExcel:WorkBooks:Open('P:\tmp\CE005.xlsx')
oHoja := oExcel:Get( "ActiveSheet" )
nRows := oHoja:UsedRange:Rows:Count()
nCols := oHoja:UsedRange:Columns:Count()
FOR nRow := 2 TO nRows
if Empty(oHoja:Cells( nRow, 1 ):Value)
exit
endif
CursoMens(oHoja:Cells( nRow, 1 ):Value)
cApl:=ceros(StrTran(oHoja:Cells( nRow, 1 ):Value,'-',''),10)+'0'
if DBSeek(cApl)
ccu->apl_ant:=AllTrim(Str(oHoja:Cells( nRow, 2 ):Value,10,2))
else
aviso('La aplicacion '+cApl+' no existe en el catalogo')
endif
NEXT
oExcel:Quit()
eval(bSalida)
Re: Cómo saber Fila y Columna final en excel?
Posted: Thu Apr 12, 2018 4:45 pm
by Armando
Noe:
Muchas gracias, parece que las líneas
nRows := oHoja:UsedRange:Rows:Count()
nCols := oHoja:UsedRange:Columns:Count()
Son las que me sacarán del problema.
Saludos