Cómo saber Fila y Columna final en excel?

[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

[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)
 

[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